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SEQ 000 
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OBAIDVS whore 


-ENABL LC 
-REM _ 
IDENTIFICATION 


PRODUCT CODE: AC-1T974B6-MC 

PRODUCT NAME: CZDRVBO - DRV11-WA DMA INTERFACE DIAGNOSTIC 
DATE: APRIL 1985 

MAINTAINER: COMPUTER SPECIAL SYSTEMS/ISG 


COPYRIGHT (C) 1985 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT 
BE PROVIDED OR OTHERWISE MADE AVAILABLEE TO ANY OTHER PERSON EXCEPT FOR 
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. . 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULG NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIARELITY OF ITS SOFTWARE 
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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1.0 


2.0 


2.1 


2.2 


3.0 


4.0 


ABSTRACT 
This program was originally written by Hide Nekagawa and has 
been modified by Kevin Liston (KJL001) and Robert Lockridge (RJLOO1). 


The DRV11-WA diagnostic program is a series of test designed 

to test all logic funtions and data paths accessible with 

the loop back cable inserted in the user I/0 connectors. 

total ~~ control is accomplished thru the console terminal 

via the ODT/Console microcode and the provisions of Section 5 

of this document. If the system also includes an “REV11”(DMA Refresh), 
the DMA refresh MUST BE DISABLED and cpu refresh must be enabled. 


REQUIREMENTS 


EQUIPMENT 


1. POP-11/03, POP-11/23, PDP-11/23+, MICRO/PDP-11, 11/73 Computer 
2. OLV11 with I/0 type terminal 
3. DRV11-WA with loop back cable 


STORAGE 
The program uses the lower 8K of memory. 
LOADING PROCEDURE 


Load the prodram using XXDP+ or any standard absolute loader. 
STARTING PROCEDURE 


1. Make sure the maintenance loop back cable is inserted in 
the I/0 connectors on the DRV11-WA module. 

2. Make sure the device bus addresses agree with the 
default values defined in section 7.1 if no, change 
location(s) as desired via the ‘address/' odt command. 

3. The program will respond by typing the software switch 
register contents and allowing the user to change its 
contents by entering octal switch register date terminated 
by a carriage return - see section 5.0 for switch register 
options. 


Example: 
-R ZORVBO 


‘MD C-ZDRVB-0 DRV11-WA DMA INTERFACE DIAG 
SWR = 000000 NEW = xxxxxx 





SEQ 0003 
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5.0 
5.1 


5.2 


6.0 
6.1 


6.2 


SEQ 0004 


SOFTWARE SWITCH REGISTER 


OPTIONS 

SWITCH OCTAL FUNCTION 

SW15:1 100000 HALT ON ERROR 

SW14:1 040000 LOOP ON TEST 

SW13:1 020000 INHIBIT ERROR TYPEOUTS 
SW12:1 010000 ENABLE DRV11-WA Q22 MODE TEST 
SW11:1 004000 INHIBIT ITERATIONS 

SW10:1 002000 BELL ON ERROR 

SWO9:1 001000 LOOP ON ERROR 

SWO8:1 0004 xx LOOP ON TEST IN SWR <7-0> 
CONTROL 


1. The software switch register ‘SWREG’ (LOC. 176) can be 
changed by using the console ODT facilities. 


2. The software switch register can be changed under program 
control by typing the “Control & G” keys. This 
keyboard operation will print out the current contents 
and accept new octal switch register date terminated 
with a carriage return. 


3. Once the ODT mode has been entered because of an 
error condition with bit 15 set (halt on error), step #2 
above is of no value, so resort to step #1 to alter the 
software switch register if desired before typing 
'P' Ccontinue). 


4. If the program is performing reset instructions, several 
‘Control & G‘ commands may be necessary to be acknowledge 
by the program. 


ERROR REPORTING 


ERROR COMMENT 


All errors are accompanied with an English language descriptive 
comment as to the type of failure. Further qualificaiton of 
the error can be obtained if needed from the comment at the 
error PC or from the test itself. 


ERROR DATA 

*#ERRPC Listing address where the error was detected 
*TSTNUM Test number where the error occurred 

BUSADR DRV11-WA bus reg address of concerned operation 
EXPCT Data that was expected 

RCVD Date that was received 

ADRS Memory address of data transfer on error 


*ALWAYS REPORTED 
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7.0 


7.1 


7.2 


7.3 


7.4 


7.5 


8.0 


SS ey er 


MISCELLANEOUS 


ORV11-WA bus € vector address modification 


Modify location ‘$BASE' if base bus address is not 172410. 
Modify location ‘$VECT1’ if vector address is not 124. 


*NOTE: Use the LSI-11 ODT facilities to modify these locations 
ect mea program load. No vector assignment above 774 should be 
allowed. 


XXDP/APT NOTES 


This diagnostic is chainable under XXDP (RE. 7.5)(Requires 8K or more). 
This diagnostic does support “APT” and has run under rt. 


POWER FAIL 


A power failure will cause a restart message on power up, at 
which time the program is restarted Conly on systems with 
non-volatile memory and with appropriate hardware). 


MULTIPLE DRV11-WA INTERFACE TESTING 


This program will “auto-size” the number of DRV11-WA's connected. 
This diagnostic will test sequentially up to 8 DRV11-WA interfaces 
with contiguous bus addresses. 


*NOTE: Each of the DRV11-WA’s found will be tested using the setting 
of SWi2 as the default. Therefore, if you want to test more 
than one DRV11-WA, *ALL* DRV11-WA's must be in either Q18 mode 
(SW10 of E40 = 0 Coff) and SWi2 = 0) or Q22 mode 
(SW10 of E40 = 1 (on) and SW12 = 1). If you mix DRV11-WA's 
set for Q18 and Q22 mode, the diagnostic will test the modules 
using the setting for SW12 as the default and the module(s) 
with SW10 of E40 in conflict with SW1i2 will fail the 
diagnostic. 


RESTRICTIONS 


If the system also includes an “REV11"(DMA Refresh), the DMA 
refresh must be disabled and CPU refresh must be enabled. 


EXECUTION TIME 


Execution time with one DRV11-WA is listed below. An end pass 
message indicates all tests have completed on all selected units. 


Q18 MODE Q22 MODE 
NO ITERATIONS 3 sec 5 sec 
WITH ITERATIONS 15 sec 15 sec 


NOTE: MEMORY IS 128KW 





SEQ 0005 
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248 9.0 


251 9.1 


261 9.2 


271 9.3 


276 9.4 
278 9.5 
280 9.6 


292 9.7 


298 9.8 












SEQ 0006 


PROGRAM TEST DESCRIPTIONS 


GENERAL 


This diagnostic contains a series of independent test designed 

to test logic funtions and data paths of the DRV11-WA DMA interface. 
A high degree of testing is accomplished with the aid of the 
maintenance loop back cable provided for diagnostic testing. 

A complete list of tests is available in the table of contents 

at the beginning of the listing. The comment field within 

each test can be beneficial in test understanding. 


REGISTER TESTS 


The following registers are read/write & reset tested: 


1. WORD COUNT 

2. BUFFER ADDRESS 

3. EXTENDED BUFFER ADDRESS 
4. COMMAND/STATUS 

5S. DATA BUFFER 


BYTE ADDRESSING TESTS 


1. COMMAND/STATUS 
2. DATA BUFFER 


‘FNCT’ to ‘STAT’ wrap eround test 
READY Interrupt test 

NPR Data Transfer tests 

The following NPR transfers are checked for correct status. 
WORD COUNT, BUFFER ADDRESS & DATA; 

SINGLE ‘DATI' XFER - FLOATING 1/0 PTRN 

SINGLE ‘DATO’ XFER - FLOATING 1/0 PTRN 

200 ‘DATI' XFERS - FLOATING 1/0 PTRN 

200 ‘DATO’ XFERS - FLOATING 1/0 PTRN 

SINGLE ‘DATI‘ XFER TO THE TTY PRINTER CSR 

MAINT MODE NPR DATA TRANSFER TESTS 

1. That maint mode controls ‘FNCT’ bits 

2. 200 maint mode xfers - checking status & data 

3. 200 maint mode xfers to each 4k available memory 


BURST & NON-BURST MODE TESTS 


USwnr 


1. That cpu is locked out in burst mode 
2. That cpu is not locked out in non-burst mode 
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303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
328 
329 
331 167400 
332 000001 
335 172410 
336 000124 
337 000001 
338 106427 
340 000000 
341 000006 
342 
343 
344 
345 017777 
346 037777 
347 000007 
349 000100 
350 000100 000104 
352 001000 










000200 000002 


SEQ 0007 


9.9 'NEX' error condition test 
9.10 Q22 Mode NPR test in maint mode 
1. Test if MMU available 
2. Size memory map 
3. Do NPR date transfers to each 8K available memory 


10.0 LISTING 


-NLIST MEB 

-NLIST CND 
$SWR=167400 
$TN=1 
ABASE= 172410 sBASE DRV11WA BUS ADRS EQUATE 
AVECTi= 000124 sBASE DRV11WA VECTOR ADRS EQUATE - 
ADEVM= 1 sDEFAULT TO ONE DRV11WA 
MTPS= 106427 sINSTR EQUATE THAT MOVES BYTE TO PSW 
UP = 0 s;CODE FOR UPWARDS MAP IN MEM MGMT PDR'S 
RW = 6 s;CODE FOR READ/WRITE IN MEM MGMT PDR'S 
3# MISCELLANEOUS DEFINITIONS 
MASK4K= 17777 sMASK FOR 4K ADDRESS BANK BOUNDARY 
MASK8K= 37777 sMASK FOR 8K ADDRESS BANK BOUNDARY 
MFPT= 7 0 sMOVE FROM PROCESSOR TYPE TO RO 

ae 104,200,2 sIGNORE IT‘S INTERRUPT -JUST DO & RTI 
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APT MAILBOX-ETABLE 


—— 


354 


001174 
001174 
001176 
001200 
001202 
001204 
001206 
001210 
001212 
001214 
001214 
001215 
001216 
001220 
001222 


001224 
0C1225 


000 
000 





-EVEN 
$MAIL: 
$MSGTY: . 


SFATAL: . 


$TESTN: . 
$PASS: . 
$DEVCT: . 
$UNIT: 
$MSGAD: . 
$MSGLG: . 
SETABLE: 
SENV: 


T* 
$MAMS1: . 
SMTYP1: . 


$ODW10: . 
$ODW11: . 


AMSGTY 
AF ATAL 
ATESTN 
APASS 
ADEVCT 
AUNIT 
AMSGAD 
AMSGLG 


AENV 
AENVM 
ASWREG 
AUSWR 
ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 


AMAMS2 
AMTYP2 
AMADR2 
AMAMS3 
AMTYP3 
AMADR3 
AMAMS4 
AMTYP4 
AMADR4 
AVECT1 
AVECT2 
ABASE 
ADEVM 
ACOW1 
ACOW2 
ADDWO 
ADDW1 
ADDW2 
ADOW3 
ADOW4 
ADDWS 
ADDW6 
ADOW7 
ADDWS 
ADDW9 
ADOW10 
ADDW11 


-3sDEVICE DESCRIPTOR WORD#3 






SEQ 0008 


3sAPT MAILBOX 
::MESSAGE TYPE CODE 
3:FATAl ERROR NUMBER 
+3TEST NUMBER 
3:PASS COUNT 
;:DEVICE COUNT 
331/0 UNIT NUMBER 
+sMESSAGE ADDRESS 
+;MESSAGE LENGTH 
+;APT ENVIRONMENT TABLE 
;s;ENVIRONMENT BYTE 
;;ENVIRONMENT MODE BITS 
+;APT SWITCH REGISTER 
;;USER SWITCHES 
3:CPU TYPE,OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01,11/05=02, 11/20=03 ,11/40=04, 11/45=05 
11/70=06 ,PDQ=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;;HIGH ADDRESS,.M.S. BYTE 
3;MEM. TYPE,BLK#1 
MEM.TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=00i 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
;:HIGH ADDRESS ,BLK#1 
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE 
3;HIGH ADDRESS,M.S. BYTE 
::MEM. TYPE ,BLK#2 
3:MEM.LAST ADDRESS ,BLK#2 
+;HIGH ADDRESS,M.S.BYTE 
:3MEM. TYPE ,BLK#3 
3;MEM.LAST ADDRESS ,BLK#3 
;;HIGH ADDRESS,M.S.BYTE 
3 :MEM. TYPE ,BLK#4 
33MEM.LAST ADDRESS ,BLK#4 
ssINTERRUPT VECTOR#1,BUS PRIORITY#1 
ss INTERRUPT VECTOR#2BUS PRIORITY#2 
3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
:;DEVICE MAP 
;;CONTROLLER DESCRIPTION WORD#1 
+s;CONTROLLER DESCRIPTION WORD#2 
;;DEVICE DESCRIPTOR WORD#0 
;sDEVICE DESCRIPTOR WORD#1 
;;DEVICE DESCRIPTOR WORD#2 


+sDEVICE DESCRIPTOR WORD#4 
ssDEVICE DESCRIPTOR WORD#5 
3sDEVICE DESCRIPTOR WORD#6 
ssDEVICE DESCRIPTOR WORD#7 
;sDEVICE DESCRIPTOR WORD#S 
;sDEVICE DESCRIPTOR WORD#9 
;sDEVICE DESCRIPTOR WORD#10 
ssDEVICE DESCRIPTOR WORD#11 
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APT MAILBOX-ETABLE 


001310 
001312 
001314 
001316 
001320 


000000 
000000 
000000 
000000 


$D0Wi2: . 
$O00W1i3: . 
$O0DWi4: . 
$DOW15: . 
$ETEND: 


ADOW12 
ADOW13 
ADDW14 
ADOW15 


3sDEVICE DESCRIPTOR WORD#12 
;sDEVICE DESCRIPTOR WORD#13 
;sDEVICE DESCRIPTOR WORD#14 
;sDEVICE DESCRIPTOR WORD#15 


SEQ 0009 





ERROR POINTER TABLE 


-— 


023372 
024355 
024510 
000000 


023421 
024355 
024510 
000000 


023453 
024355 
024510 
000000 


023473 
024355 
024510 
000000 


023537 
024355 
024510 
000000 


023567 
024355 
024510 
000000 


023616 
024355 
024510 
000000 


023643 
024355 





SS 
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-SBTTL ERROR POINTER TABLE 


s#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

s#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:*NOTE1L: 
;*NOTE2: 


;* 
SERRTB: 
ERROR 


;ERROR 


sERROR 


;ERROR 


;ERROR 


;ERROR 


sERROR 


;ERROR 


+sPOINTS TO THE ERROR MESSAGE 
ssPOINTS TO THE DATA HEADER 
ssPOINTS TO THE DATA 

ssPOINTS TO THE DATA FORMAT 


sREGISTER TIMEOUT ERROR 
sERRPC_ TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 


sREGISTER READ/WRITE ERROR 
sERRPC TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR $GDDAT ‘$BDDAT 


sBUS RESET ERROR 
sERRPC TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 


sFNCT BITS FAILED TO SET STAT BITS 
sERRPC_ TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 


sREADY INTERRUPT FAILURE 
sERRPC TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 


sREADY CLR OR SET ERROR 
sERRPC TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 


sSTATUS ERROR ON XFER 
sERRPC TSTNUM BUSADR EXPCT RCVD 
s$ERRPC TSTNUM $BDADR ‘$GDDAT $BDDAT 


sWORD COUNT ERROR ON XFER 
sERRPC TSTNUM BUSADR EXPCT RCVD 





SEQ 0010 








C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO YOS.02 Monday 08-Apr-85 16:01 Page 10-1 


SEQ 0011 

ERROR POINTER TABLE 

401 001414 024510 OT1 s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 

402 001416 000000 0 

403 

404 sERROR 11 

405 001420 023674 EM11 ;BUFFER ADRS ERROR ON XFER 

406 001422 024355 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 

407 001424 024510 OT1 s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 

408 001426 000000 0 

409 

410 sERROR 12 

411 001430 023726 EM12 sDATA ERROR FROM MEMORY 

412 001432 024417 DH2 sERRPC TSTNUM BUSADR ADRS EXPCT RCVD 

413 001434 024524 OT2 s$ERRPC TSTNUM $BDADR $GDADR $GDDAT $BDDAT 

als 001436 000000 0 

416 sERROR 13 

417 001440 023755 EM13 sDATA ERROR TO MEMORY 

418 001442 024417 DH2 sERRPC TSTNUM BUSADR ADRS EXPCT RCVD 

419 001444 024524 DT2 s$ERRPC TSTNUM $BDADR $GDADR $GDDAT $BDDAT 

oy 001446 000000 0 

422 sERROR 14 

423 001450 024002 EM14 sSINGLE CYCLE OFF DID NOT LOCK OUT CPU 

424 001452 024464 DH3 sERRPC TSTNUM BUSADR 

425 001454 024542 OT3 ;$ERRPC TSTNUM $BDADR 

a 001456 000000 0 

428 sERROR 15 

429 001460 024050 EM15 sSINGLE CYCLE ON LOCKED OUT CPU 

430 001462 024464 DH3 sERRPC TSTNUM BUSADR 

431 001464 024542 oT3 s$ERRPC TSTNUM $BDADR 

ant 001466 000000 0 

434 sERROR 16 

435 001470 024236 EM16 sNEX LOGIC ERROR 

436 001472 024355 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 

437 001474 024510 OT1 s$ERRPC TSTNUM $BDADR $GDDAT $B8DDAT 

438 001476 000000 0 

439 

440 sERROR 17 

441 001500 024256 EM17 sCYCLE FAILED TO CLK OBR CIN) 

442 001502 024355 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 

443 001504 024510 OT1 s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 

444 001506 000000 0 

445 

446 sERROR 20 

447 001510 024315 EM20 sDATA ERROR FROM I/0 PAGE (XCSR) 

448 001512 024417 DH2 sERRPC TSTNUM BUSADR ADRS EXPCT RCVOD 

449 001514 024524 oT2 s$ERRPC TSTNUM $BDADR $GDADR $GDDAT $sB8DDAT 

ro 001516 000000 -0 

452 § 5 OOOO OES 66400005 04400606 000006 040004460000400000000608 4000408 

453 -SBTTL USER DEFINED TAGS 

454 s#THE FOLLOWING TAGS ARE USER DEFINED 

455 5 5 O06 64600660066006000608 0466004060006000060400060000000 40060006006 

456 

457 001520 000000 $VERPC: .WORD 0 sVIRTUAL PC LOCATION FOR ERROR TYPEOUT ROUTINE 











C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO YOS.02 Monday 08-Apr-85 16:01 Page 10-2 


USER DEFINED TAGS 


458 001522 
459 091524 


514 001662 


000000 


TSTMAP: 


SAVTST: 


°o 


oooooooooooocoococo 


oeooooooocoooo0o0o0co 


ooooooooocoooooco 











SEQ 0012 


sLAST CONTIGUOUS MEMORY ADDRESS (+2) 
sMEMORY MAP - EACH BIT CORRESPONDS TO 8K 


31ST WORD MAP...128KW 
32ND WORD MAP...256KW 
33RD WORD MAP...384KW 
34TH WORD MAP...512KW 
35TH WORD MAP.. .640KW 
36TH WORD MAP... 768KW 
:7TH WORD MAP... .896KW 
;8TH WORD MAP. .1024KW 
:9TH WORD MAP. .1152KW 
s10TH WORD MAP..1280KW 
311TH WORD MAP..1408KW 
312TH WORD MAP..1536KW 
313TH WORD MAP..1664KW 
314TH WORD MAP..1792KW 
s1STH WORD MAP..1920KW 
316TH WORD MAP. .2048KW 


sTEST MAP - WHICH BANKS ARE SELECTED FOR TEST 


s1ST WORD MAP...128KW 
32ND WORD MAP...256KW 
33RD WORD MAP...384KW 
34TH WORD MAP...512KW 
3STH WORD MAP... .640KW 
:6TH WORD MAP...768KW 
37TH WORD MAP.. .896KW 
:8TH WORD MAP. .1024KW 
39TH WORD MAP. .1152KW 
310TH WORD MAP..1280KW 
s11TH WORD MAP..1408KW 
312TH WORD MAP..1536KW 
313TH WORD MAP..1664KW 
314TH WORD MAP..1792KW 
s1STH WORD MAP. .1920KW 
316TH WORD MAP. .2048KW 


sSAVED TEST MAP - USED DURING FIRST PASS ONLY 
; TEST EACH BANK ONCE. 
31ST WORD MAP...128KW 
MAP... .256KW 
33RD WORD MAP... 384KW 
34TH WORD MAP...512KW 
:STH WORD MAP... .640KW 
36TH WORD MAP...768KW 
37TH WORD MAP... .896KW 
38TH WORD MAP. .1024KW 
39TH WORD MAP. .1152KW 
s10TH WORD MAP. .1280KW 
311TH WORD MAP..1408KW 
312TH WORD MAP. .1536KW 
313TH WORD MAP. .1664KW 
314TH WORD MAP..1792KW 
s1STH WORD MAP..1920KW 
316TH WORD MAP. .2048KW 





































































172410 
172412 
172414 
172416 
172412 


012737 
012737 
012737 
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USER DEFINED TAGS 


-LIST SEQ 
-NLIST MEB 
-NLIST CND 
$MMAP: .WORD 
$TMAP: .WORD 
$TTST: .WORD 
$TBAR: .WORD 
$TBAE: .WORD 
FLG30K: .WORD 
TEMP : - WORD 
LSIFLG: .WORD 
LSIQ22: .WORD 
FSTPAS: .WORD 
MMAVA: .WORD 
sDRV11IWA 
ORVWCR: 172410 
DRVBAR: 172412 
DRVCSR: 172414 
ORVOBR: 172416 
ORVBAE: 172412 


sORV11WA 


DRVCTO: 124 
DORVCT2: 126 


sMEMMAP ADDRESS ENTRY 

sTSTMAP ADDRESS ENTRY 

sTEST MAP BIT 

sDRVBAR 

sORVBAE 

330K MEMORY FLAG 

s TEMPORARY STORAGE 

sLSI-11 PROCESSOR FLAG 

s22-BIT CPU SUPPORT FLAG 

sFIRST PASS FLAG 

sMEMORY MANAGEMENT AVAILABLE FLAG. 
sBIT OF 1 MMU AVAILABLE 
sBIT 15 = 1 


BUS REGISTER ADDRESS POINTERS 


sWORD COUNT 

sBUFFER ADDRESS 
sCOMMAND/STATUS 

sDATA BUFFERS 

sEXTENDED BUFFER ADORESS 


VECOTR ADDRESS POINTERS 


sREADY, NEX € INCOMPLETE DATIO VECTOR 
sNEW PSW ON INTR 


oooocooocoooo 


sCOMMON PROGRAM LOCATION(S) 


TSTNUM: : 0 


- SBTTL 
START: RESET 


sCONTAINS TEST NUMBER ON ERROR 


sDEVICE MAP - EACH BIT SET TESTS ONE DRV11WA 


sCONTAINS 1ST NON-EXISTANT MEM ADRS 
sCONTAINS CURRENT 4K NPR BUFFER ADRS 


PROGRAM START 
sINITIALIZE ORVIiWA BEFORE TESTING 


-SBTTL INITIALIZE THE COMMON TAGS 
ssCLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV 
CLR 
CMP 
BNE 


MOV 
—"} A FEW VECTORS 


@S$CMTAG, R6 ssFIRST LOCATION TO BE CLEARED 
CR6)+ 3;CLEAR MEMORY LOCATION 
@SWR,.R6 ;;DONE? 

-6 33;LOOP BACK IF 


NO 
ssSETUP THE STACK POINTER 


@$SCOPE ,@@IOTVEC ;;IO0T vecres FOR SCOPE ROUTINE 
€340 ,@@IOTVEC+2 ssLEVEL 7 
@SERROR, O@EMTVEC ; EMT vecven FOR ERROR ROUTINE 
0340, QEMTVEC+2 ssLEVEL 7 

@$ TRAP , B@TRAPVEC 33TRAP VECTOR FOR TRAP CALLS 

0340 ,@@TRAPVEC+2;LEVEL 7 
@SPWRON, SOPWRVEC ; ;POWER FAILURE VECTOR 
0340 ,G@PWRVEC+2 ;;LEVEL 7 

ssINITIALIZE NUMBER OF ITERATIONS 
ssCLEAR THE ESCAPE ON ERROR ADDRESS 


@STACK, SP 





sKJLOO1 


22 BIT ADDRESSING AVAILABLE 


sKJLOO1 


sKJLOO1 
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INITIALIZE THE COMMON TAGS 





SEQ 0014 


002052 112737 000001 001115 MOVB #1, SERMAX +sALLOW ONE ERROR PER TEST 
002060 012737 002060 001106 MOV “4 » $LPADR ssINITIALIZE THE LOOP ADDRESS FOR SCOPE 
002066 012737 002066 001110 MOV » $LPERR 3sSETUP THE ERROR LOOP ADDRESS 
33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
ssEQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
002074 013746 000004 MOV SOERRVEC, -(SP) 5;SAVE ERROR VECTOR 
002100 012737 002134 000004 MOV #300003, SOERRVEC 33SET UP ERROR VECTOR 
002106 012737 177570 001140 MOV @OSWR, SWR 3sSETUP FOR A HARDWARE SWICH REGISTER 
002114 012737 177570 001142 MOV @DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
002122 022777 177777 177010 CMP #-1,9SWR ssTRY TO REFERENCE HARDWARE SWR 
002130 001012 BNE 30002$ +sBRANCH IF NO TIMEOUT TRAP OCCURRED 
3sAND THE HARDWARE SWR IS NOT = -1 
002132 000403 BR 30001$ s3s;BRANCH IF NO TIMEOUT 
002134 012716 002142 30000$: MOV #30001$, (SP) 33SET UP FOR TRAP RETURN 
002140 000002 RTI 
002142 012737 000176 001140 30001$: MOV @SWREG , SWR ssPOINT TO SOFTWARE SWR 
002150 012737 000174 001142 MOV #DISPREG ,OISPLAY 
002156 012637 900004 30002$: MOV (SP)+,@@ERRVEC ;;RESTORE ERROR VECTOR 
002162 005037 001202 CLR sPASS 3sCLEAR PASS COUNT 
002166 132737 000200 001215 BITB @APTSIZE,$ENVM ;;TEST USER SIZE UNDER APT 
002174 001403 BEQ 300033 +sYES,USE NON-APT SWITCH 
002176 012737 001216 001140 MOV #$SWREG, SWR 3sNO,USE APT SWITCH REGISTER 
002204 300033: 
S56 0C2204 004737 023226 JSR PC ,SETREG sSET UP THE DEFAULT REGISTER ADDRESSES ;RJLOO1 
557 002210 005737 001706 TST FSTPAS sIS THIS THE FIRST PASS?? sKJLOO1 
558 002214 001402 BEQ 1$ :BR IF YES sRJLOO1 
559 002216 004737 012474 JSR PC ,RSTVEC :SET UP VECTORS sRJLOOL 
560 002222 012737 022750 022746 13: MOV @WORK1,VECTOR ;SET UP THE TABLE VECTOR ADDRESS sRJLOO1 
361 002230 005737 022744 TST $SIZE sHAVE WE SIZED FOR @ OF DRV11's YET? sRJLOO1 
362 002234 001024 BNE 2$ ;BR IF YES sRJLOO1 
563 002236 013737 000176 022736 MOV 176,SAV176 sSAVE THE SOFTWARE SWR sRJLOO1 
564 002244 013737 000200 022740 MOV 200, SAV200 sSAVE ADDRESS 200 sRJLOO1 
365 002252 013737 000202 022742 MOV 202, SAV202 sSAVE ADDDRES 202 sRJLOO1 
566 002260 004737 022366 JSR PC ,.ORVSIZ sSIZE THE AVAILABLE DRV11‘s sRJLOO1 
567 002264 013737 022736 000176 MOV SAV176,176 sRESTORE THE SOFTWARE SWREG sRJLOOL 
568 002272 013737 022740 000200 MOV SAV200 ,200 sRESTORE ADDRESS 200 sRJLOO1 
569 002300 013737 022742 000202 MOV SAV202 ,202 sRESTORE ADDRESS 202 sRJLOO1 
570 002306 000416 23: BR STARTL sSKIP CONTROL-C RESTART sKJLOO1 
571 00227:0 000005 CSTART: RESET sCONTROL-C RESTART HERE sKJLOO1 
572 002312 004737 023216 . JSR PC,WSTTIM sWASTE SOME TIME SO WE DON'T GET A“ ” ;RJLOOL 
573 002316 004737 012474 JSR PC ,RSTVEC sRESTORE THE VEC FOR UNIT UNDER TEST sRJLOO1 
574 002322 005037 001706 CLR FSTPAS sINITIALIZE FIRST PASS FLAG AGAIN sKJLOO1 
575 002326 004737 023226 JSR PC,SETREG sRESET DEFAULT REGISTER ADDRESSES sRJLOO1 
576 002332 004737 012474 JSR PC ,RSTVEC sRESTORE THE VEC FOR DEFAULT sRJLOO1 
577 002336 005037 001202 CLR $PASS s;CLEAR THE PASS COUNT sKJLOO1 
578 002342 104406 GTSWR sCHECK SW SWITCH REGISTER sKJLOO1 
579 002344 004737 023226 START1: JSR PC,SETREG sRESET DEFAULT REGISTER ADDRESSES sRJLOOL 
580 002350 012706 001100 MOV @STACK ,SP sRESET THE STACK POINTER sRJLOOL 
581 002354 012737 022750 022746 MOV @WORK1,VECTOR ;SET UP THE VECTOR TABLE ADDRESS sRJLOOL 
582 
583 -SBTTL TYPE PROGRAM NAME 
3sTYPE THE NAME OF THE PROGRAM IF FIRST PASS 
002362 005227 177777 INC @-1 ssFIRST TIME? 
002366 001052 BNE 30004$ 4a IF NO 
002370 104401 002436 TYPE .30005$ sTYPE ASCIZ STRING 


002374 


005737 


-SBTTL 


000042 TST 


ae4e2 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


ssARE WE RUNNING UNDER XXDP/ACT? 





-- 





GET VALUE FOR SOFTWARE 


092400 
002402 
002410 
002412 
002420 
002422 
002424 
002426 
002434 
002434 


002514 


001012 
123727 
001406 
023727 
001005 
104406 
000403 
112737 


000427 


012700 
012737 
005720 
000776 
042700 
010037 
012737 
012737 
012737 
013737 
042737 
001406 
032737 
001002 
000137 
000005 
004737 
005737 
001007 
104401 
004737 
012737 
106427 
012706 
013737 
013700 
006300 
013760 
022737 
001405 
104401 
013746 
104405 
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SWITCH REGISTER 


001214 
001140 


000001 


020000 
002532 


017777 
001734 
000006 
025224 
000000 
001252 
177400 


000001 
012044 


023216 
001706 


024107 
013560 
000001 
000200 
001100 
001206 
001206 


001712 
000001 


025124 
001206 





000001 
000176 


001134 


000004 


000004 
001736 
001206 
001732 
001732 


0Ci732 


001706 


001204 


001260 
001252 


BNE 30006$ 

CMPB SENV,@1 

BEQ 30006$ 

cmp SWR, @SWREG 

BNE 30007$ 

GTSWR 

BR 30007$ 
30006$: MOVB #1, $AUTOB 
300073: 

BR 30004$ 
3:30005$: -ASCIZ 
300043: 





+;BRANCH IF YES 

3;ARE WE RUNNING UNDER APT? 
;;BRANCH IF YES 

3sSOFTWARE SWITCH REG SELECTED? 
:;BRANCH IF NO 

33:GET SOFT- sun SETTINGS 


3:SET AUTO-MODE INDICATOR 
+:;GET OVER THE ASCIZ 


<CRLF>* MD C-ZORVB-0 DRV11-WA DMA INTERFACE DIAG «#<CRLF> 


Beer ee en ete Sbesesaeasessesssesasecaaseseseeasasacsssonnses 


sLET‘S SEE HOW MUCH MEMORY WE HAVE 
FF SORSRAAEEEEAEAEEEEEEEEEE ERAS EE EEEEAREREEREEE EERE ER EEEE ERED OLED 


CORSZR: MOV #020000,RO sUSE RO TO LOOK 
MOV #2$, @@ERRVEC sSET UP TIME OUT RETURN ADRS 
1$; TST (RO)-+ sTAKE A LOOK 
BR 1$ sUNTIL TIMEOUT 
2s: BIC #017777,R0 sPOINT TO 1ST NON-EXSISTANT 4K BLK 
MOV RO, CORSZ s;SAVE FOR LATER 
MOV @ERRVEC+2,Q¢ERRVEC ;RESTORE VECTOR 
MOV @DBUF , CBUFP sINITIALIZE TO LOWEST 4K 
MOV #0, $UNIT ;SET UP UNIT COUNT 
MOV $DEVM, DMAP sSET THE @ € POSITION OF DRV11WA‘S 
BIC #177400, DMAP sUP TO 8 ONLY 
BEQ RESTRT 3SO CONTINUE AS IF SOMETHING WAS SELECTED 
BIT #1,D0MAP sIS 1ST ORV11WA SELECTED? 
BNE RESTRT :BR IF SO 
JMP NXDEV1 sNO - SO ADVANCE BASE DRV11WA ADDRESSES 
RESTRT: RESET sCLEAR THE REGISTERS sRJLOO1 
JSR PC.WSTTIM sWASTE SOME TIME SO WE DON'T GET A” ” ;RJLOOL 
1$: TST FSTPAS sTEST IF FIRST PASS OR AFTER CONTROL-C_ ;KJLOO1 
BNE 2s :BRANCH IF NOT sKJLOO1 
TYPE, WARN sTELL THE OPERATOR TO TURN OFF DMA REFRESH 
JSR PC ,ASKQ22 sASK IF CPU SUPPORTS 22-BIT ADDRESSING ;KJLOO1 
MOV #1,FSTPAS :NO LONGER FIRST PASS sKJLOOL 
2s: MTPS PR4 sSET PRIORITY TO HIGHEST LEVEL 
MOV @STACK ,SP sALWAYS RESET STACK PTR 
MOV SUNIT, SDEVCT sLOAD APT COUNTER 
MOV SUNIT,RO "or AN INDEX 
ASL RO E 
MOV ORVWCR, s00W0(R0) sSAVE THE BUS ADDRESS 
cmMP #1, $DEVM sONLY ONE DEVICE? sRJLOO1 
BEQ MMCK BR IF YES sRJLOO1 
TYPE »UUT sTYPE UNIT UNDER TEST MESSAGE sRJLOO1 
MOV SUNIT, -C SP) {GET THE UNIT NUMBER sRJLOO1 
TYPDS sTYPE THE UNIT NUMBER sRJLOO1 


§ F SHREEASEEREKASAREEASEAAEESSASEESEASAEEEAAAEAEDEREAARAREEEALSE ELS 
6 F PSSEEAEAEEEEEEEEKEEESESEEAEEAEEESASSEEEEEEAAALEALELELEEEEEEEALLS 


-SBTTL 18/22 BIT ADDRESSING TEST 
FS PRORERERAEEAEAERASEEEEEEEEEAASEEEEERESEAEEAAEEASEEEAREEELELELEE 


s* CHECK IF MEMORY MANAGEMENT IS AVAILABLE. 


s# INITIALIZE THE MEMMAP TABLE 


6 F SPRROAEEEEAEASESESEEAEEAEEAAEEEAEESREEEERAEALESALEAARERELREARLELSE 


IF AVAILABLE, SET IT UP. 






SEQ 0015 
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SEQ 0016 
18/22 BIT ADDRESSING TEST 
629 002724 012700 001524 MMCK : MOV @MEMMAP , RO sLOAD RO WITH MEMMAP TABLE ADDRESS 
630 002730 012701 000020 MOV #16. ,R1 ;LOAD COUNTER 
631 002734 004737 013700 JSR PC ,.KBDSRV sTEST FOR “tC” sKJLOO1 
632 002740 005020 1$: CLR (RO)+ sCLEAR MEMMAP TABLE ENTRY 
633 002742 077102 SOB R1,1$ sDECREMENT COUNTER 16. TIMES 
634 sIF COUNTER NOT = 0 THEN CLEAR NEXT ENTRY 
635 002744 005037 001702 CLR LSIFLG sINIT LSI-11 /2/QUAD PROCESSOR FLAG 
636 002750 012737 002762 000010 MOV #2$,RESVEC sFIND OUT IF LSI-11/2/QUAD 
637 002756 000007 MF PT sMFPT INSTRUCTION WILL CAUSE TRAP 
638 sON LSI-11/72 
639 002760 000404 BR 10$ 311/23 OR LATER WILL BRANCH 
640 002762 062706 000004 2s: ADD #4 ,SP sLSI-11 RETURN, CORRECT STACK 
641 002766 005237 001702 INC LSIFLG sAND SET LSI-11/2 FLAG 
642 FF PERAEAREAARAAAEEAEAEEAAAERAREAAEREAEEARAEARARAEAREAEEEREAEREREERS 
643 3* CHECK IF MEMORY MANAGEMENT IS AVAILABLE AND SET IT UP IF IT IS 
644 § SERA EEAEEEEAEAEAEASEAEKEAAREEAEAEAEREAAAEEAREAERSREREERALERARSL 
645 002772 004737 013700 10$: JSR PC .KBDSRV sTEST FOR “tC” sKJLOOL 
646 002776 005037 001710 CLR MMAVA sCLEAR KT AND 22 BIT ADDRESSING FLAG 
647 003002 012737 003142 000004 MOV @NONKT ,AVERRVEC ;SET UP TIMEOUT TRAP VECTOR 
648 003010 005037 177572 CLR aeSRO sCLR MEM MGMT STATUS REGISTER 
649 ; WILL TRAP IF NO MMU AVAILABLE +KJL004 
650 003014 004737 012326 JSR PC ,MMINIT sMEM MGMT INITIALIZATION ROUTINE 
651 003020 052737 000001 001710 BIS @BITO,MMAVA sSET MEM MGMT AVAILABLE FLAG 
652 0C3026 005737 023002 TST $FLAG sTEST IF FIRST PASS ON UNIT # 0 7K JLO03 
653 003032 001002 BNE 11$ sSKIP TYPE OUT 
654 003034 104401 024552 TYPE, MMAMES :GO PRINT OUT THE FOLLOWING MESSAGE. 
655 003040 11$: :‘KT11 AVAILABLE‘ 
656 Ff RRRRRSEEEEAAEAREAEEEEAEAEABAREEAEAAEEEREAREREAAERESERES) RKEREKE 
657 3# CHECK IF 22 BIT SYSTEM AVAILABLE AND SET IT UP IF IT 1S 
658 5 PRSEREAEAEEAEAASEAAEEEEEAEEAEAEAAEEEEEAAEAEEAREAEARASALALAERELE 
659 003040 004737 013700 : JSR PC ,KBDSRV sTEST FOR “tC” #KJLOO1 
660 003044 012737 003114 000004 MOV #20$,Q@ERRVECT ;SET UP FOR TIME OUT VECTOR 
661 003052 005037 000000 CLR 940 s;CLEAR BASE LOCATION 0 
662 003056 012737 010000 172344 MOV #10000,@@KIPAR2 ;SET PAR2 TO BASE LOC 140000 
663 003064 052737 000020 172516 BIS #BIT4, B#SR3 sTURN ON 22 BIT ADDRESSING 
664 003072 012737 177777 040000 MOV #-1,38#40000 sNOW WRITE TO BASE LOC 200000 (128KW + 2) 
665 ; WILL CAUSE TRAP IF 22-BIT SYSTEM 3K JLO004 
666 ; WITH 128KW OR LESS OF MEMORY 7K JL004 
667 003100 005737 000000 TST a¢0 sIF LOC O = O (WILL ONLY GET HERE 
668 ; IF 18-BIT SYSTEM WITH +KJLO004 
669 3 128KW OR LESS OF MEMORY) ;KJL004 
670 ; OR IF 22-BIT SYSTEM WITH 7K JL004 
671 ; MORE THAN 128KW OF MEMORY;KJL004 
672 003104 001403 BEQ 20$ ; THEN SYSTEM SUPPORTS 22 BIT ADDRESSING 
673 003106 005037 172516 CLR BeSR3 s ELSE 18 BIT SYSTEM, DISABLE 22 BIT ADDR 
coe 003112 000464 BR KTSIZ H AND GO SIZE MEMORY 
67 
676 5 5 RESREEEAREREREEEESAREEAAREARESEEEAEEEAREABEEAARALEALESARAREEEREES 
oe s* TIME OUT TRAP TO HERE OR MEMORY EXISTS AT 128KW + 2 
678 3* 
679 s* THIS ROUTINE WILL BE EXECUTED IF THE SYSTEM SUPPORTS 22-BIT +KJLO04 
680 s# ADDRESSING. IT IS ENTERED VIA A TRAP CIF THE SUSTEM SUPPORTS 3K JLO04 
681 s# 22-BIT ADDRESSING BUT DOESN’T HAVE MORE THAN 128KW OF MEMORY) OR +KJLO04 
682 s# VIA A BRANCH STATEMENT CIF THE SYSTEM SUPPORTS 22-BIT ADDRESSING 7K JLO04 
re 3# AND DOES HAVE MORE THAN 128KW OF MEMORY. sKJL004 
68 3* 
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18/22 BIT ADDRESSING TEST 


003114 
003120 
003126 
003132 
003134 


003140 


003142 
003142 
003146 
003152 
0C3154 
003160 
003166 
003172 
003174 
003200 
0032062 
003204 


003206 
003212 
003216 
003222 
003224 
003226 
003232 
003234 
003240 
003242 
003244 
003250 
003252 
003254 
003260 
003262 


004737 
052737 
005737 
001002 
104401 


000451 


012706 
012700 
005002 
012703 
012737 
004737 
011222 
032702 
001372 
050310 
000422 


004737 
062706 
022702 
001001 
000405 
022702 
001004 
005237 
050310 
000407 
052702 
005202 
106303 
032703 
001742 
000506 


013700 
100000 
023002 


024617 


001100 
001524 


000001 
003206 
013700 


037777 


013700 
000004 
160000 


170000 
001676 


037777 


000020 








SEQ 0017 
208: JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 
001710 BIS #BIT15,MMAVA sSET 22 BIT FLAG 
TST $FLAG 3;TEST IF FIRST PASS ON UNIT @# 0 sKJLOO3 
BNE 25$ 33SKIP TYPE OUT IF NOT FIRST PASS 
TYPE, AVAL22 :GO PRINT OUT THE FOLLOWING MESSAGE. 
;'22 BIT ADR AVAILABLE” 
25$: BR KTSIZ 3GO SIZE MEMORY 
FF RRREREEEEAAAEREAEAEAEEARARAREAEREREAAAAEARAREERKAALAEAAAAA AA RES 
s* THIS ROUTINE WILL MAP MEMORY IN 8KW SEGMENTS. SUPPORTS ONLY THE SIZING 
:* OF 16 BIT ADDRESSING WITHOUT MEM MGMT SUPPORT 
34 STORAGE USED: 
ps RO = MEMMAP POINTER ... LO 128KW 
:* R2 = ADDRESS POINTER 
3* R3 = BANK POINTER ... LO 128KW 
3* FLAG3OK = 30K MEMORY FLAG 
3% LITERALS: 
7* MASK8K = 37777 
§ i RRRRAEEEEA EERE EERE EAREEEAEEEAEEEEAAAAREREEAERRAARAAARRRREEEAAEE 
NONKT: 
MOV #STACK ,SP ;SET-UP THE STACK 
MOV #MEMMAP , RO ;SET UP MEMORY MAP PTR TO LO 128KW 
CLR R2 ;SET ADDRESS PTR TO 0 
MOV #1,R3 ;SET UP 8KW BANK POINTER 
000004 MOV #2$, 9¢ERRVEC sSET UP TIME OUT VECTOR 
1$: JSR PC .KBDSRV sTEST FOR “tC” sKJLOO1L 
MOV CR2),C(R2)+ sREAD AND WRITE ALL MEMORY 
BIT #MASK8K,R2 ;IF NOT 8KW BOUNDARY 
BNE i$ ; THEN CHECK NEXT LOCATION 
BIS R3,CRO) ; ELSE SET BANK FLAG IN MEMMAP 
BR 3$ 3 AND DO SOME MORE 
FERRARA AAEAEEEEAAAESAEAAAEAEREEAREESASALESAARELEALEARAAAERALES 
;* TIMEOUT TRAPS TO HERE 
5 FERRER REAEEEEEREEEEAEEEEEAAEARESSARESAEEALERERESAEAREEEAEA SAREE 
2s: JSR PC .KBDSRV sTEST FOR “tC” +KJLOO1 
ADD #4 ,SP sRESTORE STACK POINTER 
CMP #160000,R2 :IF NOT 28KW BOUNDARY 
BNE 20$ ; THEN BRANCH 
BR 21$ ; ELSE SET UP POINTERS 
20$: CMP #170000,R2 :IF NOT 30KW BOUNDARY 
BNE 22$ ; THEN BRANCH 
INC FLG30K ; ELSE SET 30KW MEMORY FLAG 
21s: BIS R3,CRO) ;SET BANK FLAG IN MEMMAP 
BR 4$ ;BRANCH ALL DONE 
22%: BIS @MASK8K,R2 sPOINT TO LAST ADDRESS OF 8KW BANK 
INC R2 sPOINT TO 1ST ADDRESS OF NEXT BANK 
3$: ASLB R3 sUPDATE BANK POINTER 
BIT #BIT4,R3 sIF NOT DONE WITH 32KW 
BEQ i$ ; THEN TRY SOME MORE 
4$: BR DISMAP ;GO TYPE OUT MAP 
§ RRREAEEEESESEREEAAEAAAAAEAAEAEARARAAAAEAEAAAAEREARARAREAARAR ALA 
+# THIS ROUTINE WILL MAP MEMORY IN 8KW SEGMENTS. 
3# MEMORY MANAGEMENT REGISTERS KIPAR2 AND KIPAR3 ARE USED TO MAP 
3* THE 8KW BANKS OF MEMORY. 
s* IF MEMORY EXISTS NEXT TO THE I/O PAGE (I.E. 760000 OR 17760000) 
:* THEN THE LAST BANK WILL BE ACKNOWLEDGED AS EXISTING. 
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SEQ 0018 

18/22 BIT ADDRESSING TEST 

743 ;* STORAGE USED: 

744 3* RO = MEMMAP POINTER 

745 :* R2 = ADDRESS POINTER 

746 3* R3 = BANK POINTER 

747 34 KIPAR2 = MAPPED TO 1ST 4KW OF PRESENT 8KW BANK 

748 i* KIPARS = MAPPED TO 2ND 4KW OF PRESENT 8KW BANK 

749 3* LITERALS USED: 

750 7% MASK8K = MASK OF 8KW (37777) 

751 5 PRERERAAREAEERERARREAEEEAREAARERAEEEEREEEEEREERERD REESE EELS EEE 

752 003264 012706 001100 KTSIZ: MOV #STACK ,SP sSET-UP THE STACK 

753 003270 012700 001524 MOV @MEMMAP , RO sSET-UP MEMMAP PTR TO FIRST ENTRY 

754 003274 012702 040000 MOV #40000 ,R2 sINIT VIRTUAL ADDRESS TO 0 MAPPED THRU PAR2 

755 003300 005037 172344 CLR BeKIPAR2 sINIT PAR2 TO LOC O 

756 003304 012737 000200 172346 MOV #200,8@KIPARS ;SET PAR3 TO 2ND 4KW BANK 

757 003312 012737 003352 000004 MOV #3$, AERRVEC sLOAD TIME OUT VECTOR 

758 003320 012703 000001 1$: MOV #BITO,R3 sSET-UP 8KW BANK POINTER 

759 003324 105777 175614 2s: TSTB asTKS sHAS A KEY BEEN HIT sRJLOO1 

760 003330 100002 BPL 22$ 3BR IF NOT sRJLOO1 

761 003332 004737 013710 JSR PC ,KBDSR1 sTEST FOR “tC” ;RJLOOL 

762 003336 011222 223: MOV CR2),CR2)+ sREAD AND WRITE ALL MEMORY 

763 003340 032702 037777 BIT @MASKBK , R2 sIF NOT 8KW BOUNDARY 

764 003344 001367 BNE 2s ; THEN TRY SOME MORE 

765 003346 050310 BIS R3,CRO) ; ELSE SET BANK FLAG IN MEMMAP 

be 0C3350 000426 BR 5$ sAND GO UPDATE VARIABLES AND CONTINUE 

6 

768 5p SRRRAREEREERREEREAEEEAREAREE ERE EE AEAAREEAEEARERAAEER ERE EE EEE 

769 ;* TIMEOUT TRAPS TO HERE 

770 5 RRRERAAERERREEEE EERE RARAAAEEEEESEEAAEAEEAEERER EERE EAEA SEER REELS 

771 003352 004737 013700 3$: JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 

772 003356 062706 000004 ADD 4 ,SP sRESTORE STACK POINTER 

773 003362 022702 060000 CMP #60000 ,R2 ;IF NOT POSSIBLY THE I/0 PAGE 

774 003366 001017 BNE S$ ; THEN GO TEST SOME MORE 

775 003370 005737 001710 TST MMAVA ; ELSE IF 22 BIT ADDRESSING (BIT 15 SET) 

776 003374 100406 BMI 4s ; THEN GO SEE IF 2M I/O PAGE 

777 003376 022737 007600 172346 CMP #7600, Q¢KIPAR3S ; ELSE IF NOT I/O BOUNDARY FOR 18 BITS 

778 003404 001010 BNE S$ ; THEN GO UPDATE VARIABLES AND TRY SOME MORE 

779 003406 050310 BIS R3,CRO) ; ELSE SET BANK EXISTS IN MEMMAP 

780 003410 000433 BR 7$ ; AND GO TYPE MEMORY MAP 

781 003412 022737 177600 172346 4$: CMP #177600, 9%KIPAR3S ;IF NOT 2M I/0 BOUNDARY 

782 003420 001002 BNE 5$ ; THEN GO TRY SOME MORE SIZING 

783 003422 050310 BIS R3,CRO) + ELSE SET BANK IN MEMMAP 

784 003424 000425 BR 7$ ; AND GO TYPE MEMORY MAP 

785 003426 062737 000400 172344 5%: ADD #400,Q@KIPAR2 ;UPDATE MAP TO NEXT 

786 003434 062737 000400 172346 ADD #400,Q¢KIPARS ;  8KW BANK 

787 003442 012702 040000. MOV , #40000,R2 sRESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK 

788 003446 005737 001710 TST MMAVA ;IF 22 BIT ADDRESSING (BIT 15 SET) 

789 003452 100403 BMI 6$ ; THEN GO TEST SOME MORE 

790 003454 006303 ASL R3 ; ELSE 18 BIT ADDR. = 1 WORD 

791 003456 001322 BNE 2$ ; IF_NOT END OF 18 BIT ADOR 

792 ; THEN GO SIZE SOME MORE 

793 003460 000407 BR 7$ ; ELSE ALL DONE 18 BIT SIZING. 

794 003462 006303 6$: ASL R3 s;UPDATE BANK POINTER 

795 003464 001317 BNE 2$ sIF NOT END OF THIS MEMMAP ENTRY, THEN CONTINUE 

796 003466 062700 000002 ADD #2,RO ; ELSE UPDATE TO NEXT MEMMAP ENTRY 

797 003472 022700 001564 CMP #MEMMAP+40,RO ;IF NOT END OF MEMMAP TABLE 

798 003476 001310 BNE 1$ ; THEN GO SIZE SOME MORE 

799 ; ELSE ALL DONE SIZING 








18/22 BIT ADDRESSING TEST 


-— 


oe 093500 


005737 
001042 
012737 
012700 
104401 


004737 
104401 


012702 
012700 
012701 


000240 
012737 


012737 
b 


012737 


023002 


000001 
001524 
024657 


015772 
001171 


001624 
001524 
000020 
013700 


001524 
177774 
000003 


177572 
024712 





023002 


001106 
001200 


001102 
001110 


000004 


7$; 


0 SR te er A RS RS EE RR SA ST a ae 
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; FALL THROUGH AND GO TYPE OUT MEMORY MAP 


§ RRRRERRRERERERERERREAEEEEEEEEASAEREREREAEAREEREE REESE EERE EE EEE 
s* ROUTINE WILL TYPE OUT MEMMAP, LOAD TEST MAP (SAVTST) AND CHECKS 
s* TO INSURE LOWEST 16KW OF MEMORY IS AVAILABLE FOR TEST TO RUN 


sKJLOO3 


sKJLOO1 


3* STORAGE LOCATIONS: 
3% RO = MEMMAP POINTER ... LO 128KW 
3* Ri = COUNTER 
3* R2 = SAVTST POINTER ... LO 128KW 
5 gE RRRAERAAEEREREEAARAEAAEEAAAEERAAEAAAEEAAREAAREARAREEKARAAERAEKEREK 
DISMAP: TST $FLAG ;TEST IF FIRST PASS ON UNIT # 0 KJLO03 
BNE TSTi 3;SKIP MEMORY MAP TYPEOUT IF NOT FIRST pass 
MOV #1,$FLAG ;SET THE UNIT PASS FLAG 
MOV #MEMMAP , RO ;LOAD RO WITH MEMMAP A 
TYPE, MEMMES ;GO PRINT OUT THE FOLLOWING MESSAGE. 
3;'MEMORY MAP‘ 
JSR PC, TYPMAP :GO TYPE THE MAP 
TYPE, $CRLF :GO PRINT OUT THE FOLLOWING MESSAGE. 
3'<CR><LF>’ 
MOV #SAVTST,R2 ;LOAD ADR OF SAVTST TABLE TO BE CLEARED 
MOV #MEMMAP , RO sLOAD ADR OF MEMMAP TABI_E 
MOV #16. ,R1 ;LOAD COUNTER 
1$ JSR PC ,.KBDSRV sTEST FOR “tC” 
CLR C(R2) ;CLEAR SAVTST TABLE ENTRY 
MOV CRO)+,CR2)+ ;LOAD SAVTST FROM MEMMAP 
SoB R1,1$ sDECREMENT CTR 16 TIMES 
MOV MEIMAP, RO ;LOAD RO WITH MAP OF 1ST 128KW 
BIC #177774, RO sMASK ALL BUT BOTTOM 16KW 
CMP #3,RO ;IF BOTTOM 16KW IS ALL THERE 
BEQ TST1 3; THEN GO RUN 
CLR 84¢SRO sDISABLE MMU 
TYPE, INSUFF ;GO PRINT OUT THE FOLLOWING MESSAGE. 
;'FIRST 16KW OF MEMORY NOT ALL THERE!‘ 
HALT iFATAL ERROR HALT 


s#TEST 1 


TST1: <NOP> 


10$: 


#10$,$LPADR 
#1,$TESTN 


#1,$TSTNM 
#1$,$LPERR 
$GDDAT 
$BDDAT 

#2$, 9#ERRVEC 
DRVWCR ,RO 
#4.R1 

PC ,.KBDSRV 
eo 


sMEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM 


3 SRAARREERAAEEEAARERAREAREAEAREAAEABEREARERAERAAKEAAREARAKEAES EEE 


TEST THAT ALL DRV11WA REGS ARE ACCESSIBLE 
jf RRRRERARAEREEERAAEAREAAEAARAEAEAEAEEEEEEAEEEE EERE REE RERAEA RK ERE 


;33SET SCOPE LOOP ADDRESS 
3sSET TEST NUMBER IN APT MAIL BOX 


sSET TO TEST #1 

sSET UP SCOPE LOOP ADRS 
sNO DATA COMPARE 

sNO DATA COMPARE 

sSET UP TIMEOUT RETURN ADDRS 
sSET UP 1ST DRV11 BUS ADRS 
sSET UP REG COUNT 

sTEST FOR “tC” 

sSET UP CURRENT DRV BUS ADRS 
;SEE IF THERE 
sBUMP TO NEXT 
sCOUNT 4 OF THEM 
BR IF ALL DONE 


sKJLOO1 





SEQ 0019 





_—— 
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Ti 


-— 


’ 





TEST THAT ALL DRVLIWA REGS ARE ACCESSIBLE 


003712 
003714 
003716 
003720 


003726 


003730 
003736 
003744 
003746 
003754 
003760 
003766 
003774 
004002 
004004 
004006 
004012 
004014 
004016 
004022 
004026 


004030 


004032 
004040 
004046 
004050 
004056 
004062 
004066 
004074 
004100 
004106 
004114 
004122 
004124 
004126 
004132 
004140 
004142 
004144 
004150 
004152 
004160 


000767 
022626 
104001 
012737 


000004 


012737 
013737 
005000 
012737 
004737 
013777 
017737 
023737 
001401 
104002 
005137 
005100 
001357 
006337 
005237 
103752 


000004 


012737 
013737 
005000 
012737 
004737 
005777 
013777 
005777 
017737 
042737 
023737 
001401 
104002 
005137 
042737 
005100 
001345 
006337 
103004 
062737 
000736 


000006 


003754 
001712 


177776 
013700 
001124 
175720 
001124 


001124 


001124 
001124 


004056 
001714 


177774 
013700 
175624 
001124 
175612 
175610 
000001 
001124 


001124 
000001 


001124 
000002 





000004 


001110 
001122 


001124 
175724 


001126 
001126 


001110 
001122 


001124 
175620 
001126 


001126 
001126 


001124 


001124 


2s: 
33: 





i$ sTRY NEXT 
(SP)+,(CSP)+ sFIX STACK SINCE NO RTI 

sBUS ADRS INDICATED DID NOT RESPOND 
#ERRVEC+2, SHERRVEC sRESTORE LOC 4 


§ E SERRAERSARERERAEREREERAARAEAEAARABAREAARREAERAAERAREASARSALERERS 


TEST THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
jf RRRRAEEREREAEEEEEEEERAEEAEEEARAEEEAEEAERAE EE EEEAER ARERR EK EE EES 


s*TEST 2 
TST: 


1$: 


2s: 


SCOPE 


#1$, $LPERR 
yale: 


#-2, $GDDAT 
PC ,KBDSRV 
$GDDAT , AORVWCR 
SDRVWCR, $BDDAT 
* Seelam 


;SET UP SCOPE LOOP ADRS 

;SET UP WC REG ADRS 

:RO SAYS SHIFT PTRN WHEN 0 
sFLOAT O RIGHT TO LEFT 

sTEST FOR “tC” 

:LD WC 

sREAD IT BACK 

;CORRECT? 

;BR IF SO 

sWORD COUNT WRITE/READ FAILURE 
;COMPELEMENT ZERO 

sRO SAYS SHIFT LEFT WHEN = 0 
;TRY THE COMPLEMENT IF RO NOT O 
;COMPLEMENT WAS DONE = NOW SHIFT ZERO LEFT 
sKEEP LSB SET 

sAGAIN TILL ALL PATTERNS DONE 


sKJLOOL 


§ RARER EEREEEERAREAAEEAEAEAAREEAEAAERAEASEARAREARERERE SKE AEERELRSE 


TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
jf RRREEREREEREAEREREREAEAEAREAAEAEEREAEE ES EAAARAEE ERE ER EERE ES ERE 


;*TEST 3 
TST3: 


1$: 


2$: 


SCOPE 


#1$,$LPERR 
nn 


#-4, $CODAT 

PC ,KBDSRV 
@DRVWCR 
$GDDAT , @ORVBAR 
@DRVWCR 
SORVBAR, $BDDAT 
#BITOO, $BDDAT 
> menage 


$GDDAT 
‘al aiateey 


1$ 

$GDDAT 
TST4 

#2, $GDDAT 
i$ 


sSET UP SCOPE LOOP ADRS 

s;SET UP BA REG ADRS 

sRO SAYS SHIFT PTRN WHEN 0 

sFLOAT O RIGHT TO LEFT 

sTEST FOR “tC” sKJLOO1 
ny FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1 
5 

sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1 
sREAD IT BACK 

DON'T WANT BITOO 

sCORRECT? 

:BR IF SO 

sBUS ADRS WRITE/READ FAILURE 

sCOMPLEMENT ZERO 

sBIT 00 NOT INVOLVED 

sRO SAYS SHIFT LEFT WHEN = 0 

sTRY THE COMPLEMENT IF RO NOT O 

sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
3sNEXT TEST IF AIT IS DONE 

sKEEP ADOR LSB SET 

sAGAIN TILL ALL PATTERNS DONE 


§ fs SRSKEKEREEREAEESASEREAESASEEEAEAEESABASEAAREEESKEAKKEAEEEEE EE EEE 


s#TEST 4 


TEST THAT THE EXTENDED ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
RRR AEEREEEEEAEEAREAAEAARE DARE SAEEAEEAAEEEESAAEESAEAAD ERED EAEEE 






SEQ 0020 
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SEQ 0021 
74 TEST THAT THE EXTENDED ADDRESS REG IS WRITE/READABLE (FLOAT 
- 004162 000004 TST4: SCOPE 
1 

902 004164 032777 010000 174746 BIT #SW12,OSWR sTEST IF Q22 MODE 
903 004172 001474 BEQ TSTS ssNEXT TEST IF DRV11-WA NOT SET FOR Q22 
904 004174 012737 004222 001110 MOV #1$,$LPERR sSET UP SCOPE LOOP ADRS 
905 004202 013737 001714 001122 MOV ORVBAR,$B8DADR ;SET UP BA REG ADRS 
906 004210 005000 CLR RO sRO SAYS SHIFT PTRN WHEN 0 
907 004212 012701 177776 MOV #-2,R1 sFLOAT O RIGHT TO LEFT 
908 004216 005777 175470 TST aDRVWCR sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOOL 
909 004222 004737 013700 1$: JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 
910 004226 010137 001124 MOV R1, $GDDAT sCOPY TO WORK AREA 
911 004232 013777 001124 175454 MOV $GDDAT, @DRVBAR ;LD BAR 
912 004240 005137 001124 COM $GDDAT sCOMPLEMENT TO ZERO 
913 004244 013777 001124 175450 MOV $GODAT,@DRVBAE ;LD BAE 
914 004252 010137 001124 MOV R1,$GDDAT sSET EXPECTED DATA 
915 004256 042737 000001 001124 BIC #BITOO,$GDDAT  ;BITOO NOT INVOLVED 
916 004264 017737 175424 001126 MOV SORVBAR, $BDDAT ;READ BAR BACK 
917 004272 042737 000001 001126 BIC #BITOO,$BDDAT  ;DON'T WANT BITOO 
918 004300 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
919 004306 001401 BEQ 2$ ;BR IF SO 
920 004310 104002 ERROR+2 sBUS ADRES WRITE/READ FAILURE 
921 004312 010137 001124 2s: MOV Ri, $GDDAT sSET EXPECTED DATA 
922 004316 005137 001124 CoM $GDDAT sCOMPLEMENT ZERO 
923 004322 042737 177700 001124 BIC #177700,$GDDAT ;DON'T WANT UPPER BITS 
924 004330 017737 175366 001126 MOV SORVBAE,$BDDAT ;READ BAE BACK 
925 004336 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
926 004344 001401 BEQ 3$ :BR IF SO 
927 004346 104002 ERROR+2 sBUS ADRES WRITE/READ FAILURE 
928 004350 005101 3$: COM Ri sCOMPLEMENT ZERO 
929 004352 005100 COM RO sRO SAYS SHIFT LEFT WHEN = 0 
930 004354 001322 BNE 1$ sTRY THE COMPLEMENT IF RO NOT O 
931 004356 006301 ASL R1 sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
932 004360 103001 BCC TSTS 3sNEXT TEST IF AIT IS DONE 
933 004362 000717 BR is sAGAIN TILL ALL PATTERNS DONE 
934 5 RRRRARARARERARAEEAEAAAAAEAERAERERSRERARERAREEEEEERE ESKRKERERERS 

3;*#TEST 5 TEST THAT THE DATA BUFFER REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 

5 RRERERAREAREEEAEAAEAAAREARAERAKERERERARARERES EASES RERAKAEREREKEKE 
. 004364 000004 TSTS: SCOPE 
9 
936 004366 012737 004412 001110 MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 
937 004374 013737 001720 001122 MOV DRVDBR,$BDADR ;SET UP DB REG ADRS 
938 004402 005000 CLR RO +RO SAYS SHIFT PTRN WHEN 0 
939 004404 012737 177776 001124 MOV #-2, $GDDAT sFLOAT O RIGHT TO LEFT 
940 004412 004737 013700 1$: JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 
941 004416 013777 001124 175274 MOV $GDDAT,@DRVDBR ;LD DB 
942 004424 017737 175270 001126 MOV SORVOBR, $BODAT ;READ IT BACK 
943 004432 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
944 004440 001401 BEQ 2$ BR IF SO 
945 004442 104002 ERROR+2 sDATA BUFFER WRITE/READ FAILURE (LOOP BACK) 
9466 004444 005137 001124 2s: COM $GDDAT sCOMPLEMENT ZERO 
947 004450 005100 COM RO s#RO SAYS SHIFT LEFT WHEN = 0 
948 004452 001357 BNE 1$ sTRY THE COMPLEMENT IF RO NOT O 
949 004454 006337 001124 ASL $GDDAT sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
950 004460 005237 001124 INC $GDDAT KEEP LSB SET 
= 004464 103752 BCS is sAGAIN TILL ALL PATTERNS DONE 
953 § F SRRERREEAEEAEAAESEREEREAAREAESEEEASEESESEALEALELEE ELSE EERE EEEESE 





[Uae mere ee ee ee eee 
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TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 
5 RRR EREREREEEREREEERARERAEAEERAAEERERER RARER EA EE EERE ER ERR ER ERE 


sTEST FOR “tC” +KJLO01 
sGET ON REG ADRS 

;SET UP DB REG ADRS 

;ZERO DATA BUFFER RFG 

;LD EXPECTED 

:SEND DATA FROM "BDDAT” 

;LOAD HI BYTE DB 

;LOAD LO BYTE DB 

sREAD IT BACK 

;CORRECT? 

:sNEXT TEST IF SO 

;DATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG 


8 5 RRERAKERAKERAAEREALESAARERAARERAAERAKARARERAREAAREAAREREREAEEAEAERA 


TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS € DATA REGS 
Titi t ttt ttt Titi iri itr titi iii titititititi ttt ett sy 


3:00 10 ITERATIONS 


sTEST FOR “tC” sKJLOO1 
sLD EXPECTED 

sSET ALL BITS - WC REG 

sSET ALL BITS - DB OUT REG 

;SET ALL BITS - BUS ADRS REG 

sTEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON) 
sBR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF) 
sSET ALL BITS - EXTENDED BUS ADRS REG 

;D0 A BUS RESET 

sREAD WC REG 

;BR IF CLEARED 

;SET UP WC REG ADRS 

sRESET FAILED TO CLR WC REG 

sREAD BUS ADRS REG 

;D0N‘'T WANT BITOO 

;BR IF CLEARED 

;SET UP BA REG ADRS 

sRESET FAILED TO CLR BUS ADRS REG 

sTEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON) 
sBR IF IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF) 
sREAD BAE ADRS REG 

sBR IF CLEARED 

SET UP BAE REG ADRS 

sRESET FAILED TO CLR EXTENDED BUS ADDRESS REG 
sREAD DATA BUFFER REG 

s+sNEXT TEST IF CLRED 

SET UP DB REG ADRS 

sRESET FAILED TO CLR DATA BUFFER OUT REG 


j  RRORRRRREREEEEEREREEERERSREREREREASAEREAEEEAEEEEEEEE EE EE EDEL EEE 
TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT PTRN) 


§ SEER AREREAAEEEAERASEEEE ES EAEAEASEAAKASESAALEAAESSELEEEEEEEEEEEES 


T6 TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 
:*TEST 6 
. 0044€e we Me TST6: SCOPE 
954 
955 004470 004737 013700 1$: JSR PC ,KBDSRV 
956 004474 013700 001720 MOV ORVDBR ,RO 
957 004500 010037 001120 MOV RO, $GDADR 
958 004504 005010 CLR CRO) 
959 004506 012737 177177 001124 MOV #177177, $GDDAT 
960 004514 012737 077776 001126 MOV #77776, $BDDAT 
961 004522 153760 001126 000001 BISB $BDDAT,1(RO) 
962 004530 153710 001127 BISB $BDDAT+1,CRO) 
963 004534 011037 001126 MOV CRO), $BDDAT 
964 004540 023737 001124 001126 CMP $GDDAT , $BDDAT 
965 004546 001401 BEQ TST7 
966 004550 104002 ERROR+2 
967 
968 
3*TEST 7 
004552 000004 TST?: SCOPE 
ane 004554 012737 000010 001160 MOV #10, $TIMES 
970 004562 004737 013700 JSR PC ,KBDSRV 
971 004566 005037 001124 CLR $GDDAT 
972 004572 012777 177777 175112 MOV #-1,@DRVWCR 
973 004600 012777 177777 175112 MOV #-1,9DRVDOBR 
974 004606 012777 177776 175100 MOV #-2,9D0RVBAR 
975 004614 032777 010000 174316 BIT #SW12,@SWR 
976 004622 001403 BEQ 10$ 
977 004624 012777 177777 175070 MOV #-1, BRVBAE 
978 004632 000005 10$: RESET 
979 004634 017737 175052 001126 MOV A@DRVWCR, $BDDAT 
980 004642 001404 BEQ is 
981 004644 013737 001712 001122 MOV DRVWCR, $BDADR 
982 004652 104003 ERROR+3 
983 004654 017737 175034 001126 1%: MOV SDRVBAR, $BDDAT 
984 004662 042737 000001 001126 BIC #BITOO, $BDDAT 
985 004670 001404 BEQ 2s 
986 004672 013737 001714 001122 MOV ORVBAR , $BDADR 
987 004700 104003 ERROR+3 
988 004702 032777 010000 174230 2%: BIT #SW1i2,9SWR 
989 904710 001410 BEQ 3$ 
990 004712 017737 175004 001126 MOV SDRVBAE, $BDDAT 
991 004720 001404 BEQ 3$ 
992 004722 013737 001722 001122 MOV DRVBAE , $BDADR 
993 004730 104003 ERROR+3 
994 004732 017737 174762 001126 3%: MOV SDRVOBR, $BDDAT 
995 004740 001404 BEQ TST10 
996 004742 013737 001720 001122 MOV ORVDBR , $BDADR 
997 004750 104003 ERROR+3 
998 
999 
:*TEST 10 
004752 000004 TST10: SCOPE 
004754 012737 000010 001160 MOV #10, $TIMES 


Nadal a ciao dace lide tai 


3300 10 ITERATIONS 






SEQ 0022 





ee ce a 
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TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT 


T10 


-—— 


106427 
004537 
005130 
013737 
013737 
012700 
004737 
010037 
042737 
032777 
001403 
042737 
010077 
017737 
042737 
032777 
001403 
042737 
023737 
001401 
104002 
062700 
001333 
000413 
022626 
052737 
017737 
042737 
104005 
004737 


000004 
012737 


004737 
013737 
012737 
012777 
000005 
017737 
023737 
001401 
104003 


000004 


004737 
013700 
010037 
005010 


167261 
174642 
174636 
007200 
010000 


007260 
001124 


000002 


000200 
174552 
007000 


012474 


000010 


013700 
001716 
000200 
177776 


174470 
001124 


013700 
001716 
001122 





001110 
001122 


001124 
174100 


001124 


001126 
001126 
174042 


001126 
001126 


001124 
001126 
001126 


001160 


001122 
001124 
174476 


001126 
001126 


1$: 


10$: 


20$: 


2s: 


3$: 


4$: 


MTPS 


@PR4 
RS ,SETVEC 


1$,$LPERR 
DRVCSR , $BDADR 
#160000, RO 

PC ,KBDSRV 

RO, $GODAT 
#167201, $GDDAT 
#SW12, 8SWR 

10$ 


#167261, $GDDAT 
RO,@DRVCSR 
SDRVCSR, $BDDAT 
#7200, $BDDAT 
#SW12,QSWR 

20$ 


#7260, $BDDAT 
tetany: 


#2 ,RO 


4s 

(SP)+,(SP)+ 
#200, $GDDAT 
@DRVCSR, $BDDAT 
#7000, $BDDAT 


PC,RSTVEC " 


DON'T WANT ANY INTERRUPTS 

sSET UP INTR RETURN ADRS IN CASE 
sRETURN TO 3$ ON ILLEGAL IN7TR 
sSET UP SCOPE LOOP ADRS 

sSET UP CSR ADRS 

sSTART AT O - HI BITS FOR NOISE 
sTEST FOR “tC” 

3LD EXPECTED 

sMASK TO WRITEABLE BITS 

sTEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON) 
sBR IF DRVi1-WA IS IN Q18 MODE (S10-E40 OFF) 
sMASK XAD17 & XAD16 

:LD CSR 

sREAD IT BACK 

sDON‘T LOOK AT STAT & RDY BITS 

sTEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON) 
:BR IF ORV11-WA IS IN Q18 MODE (S10-E40 OFF) 
sDON‘T LOOK AT XAD17 & XAD16 


sKJLOO1L 


S 
sCONTROL/STATUS REG WRITE/READ FAILURE 
sADVANCE COUNT PATTERN 
sWRITE NEXT PATTERN IF NOT ALL TESTED 
:GO RESTORE VECTOR 
sFIX STACK - SHOULD NOT HAVE INTR’ED 
sCORRECT EXPECTED 
sREAD CSR 
;DON‘T WANT ‘STAT’ BITS 
;CPU FAILED TO LOCK OUT DRV11WA INTR REQ 
:GO RESTORE VECTOR 


§ fe SRRRESAEAERESEASESARAREASASESLALSAAEAAAEAAASEEEESEEALEALESALAELEEEE 


;*TEST 11 


TST11: 


1$: 


SCOPE 
MOV 


ERROR+3 


TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR 
5  RRRREREREREREREREEERAESEEEAEAEAEEE EASA EEEEEE ERE EE EEEEEDEEEEEEE 


#10, $TIMES 


PC ,KBDSRV 
DRVCSR, $BDADR 
#200, $GDDAT 
#-2,80RVCSR 


SORVCSR, $BDDAT 
$GDDAT , $BDDAT 
TSTi2 


3:00 10 ITERATIONS 


sTEST FOR “tC” 

:;SET UP CSR ADRS 

;LD EXPECTED 

;LD ALL CSR SITS 

;D0 A BUS RESET 

sREAD CSR 

sCORRECT? 

ssNEXT TEST IF CSR CLRED & READY SET 
sRESET FAILED TO SET UP THE CSR 


sKJLOO1 


§ fF SSRRERAREERESEEKALESESESEASEESEALESESASSALEEASESLELALALEAEELEELE 


s#TEST 12 


§ fs SSSRSARERERESSEAASASRESSERASELAEESESEAESESELELESSERESALEEEAE KEELES 


TSTil2: 


SCOPE 


TEST THAT THE CSR IS BYTE ADDRESSABLE 


PC ,.KBDSRV 
DRVCSR ,RO 
RO, $BDADR 
CRO) 


sTEST FOR “tC” 
sSET CSR ADRS 
sSET UP CSR ADRS 
ZERO CSR 





SEQ 0023 





C-ZDRVB-O0 DRV11-WA DMA INTERFAC MACRO YOS.02 Monday 08-Apr-85 16:01 Page 10-14 


T12 





TEST THAT THE CSR IS BYTE ADDRESSABLE 


005262 
005270 
005276 
005304 
005310 
005314 
005322 
005324 
005326 


012737 
012737 
153760 
153710 
011037 
023737 
001401 
104002 
005010 


000004 


012737 
013737 
012737 
012700 
004737 
010077 
017737 
042737 
023737 
001401 
104004 
162737 
162700 
100353 


000004 
012737 


010300 
040026 
001126 
001127 
001126 
001124 


005360 
001716 
007000 
000016 
013700 
174326 
174322 
170777 
001124 


001000 
000002 


000010 


013700 
000200 


005534 
001716 
000300 
000000 


005550 
000100 


174170 


174154 


174140 
001124 


001124 
001126 
000001 


001126 


001110 
001122 
001124 


001126 
001126 
001126 


001124 


001160 


174242 
001122 
001124 


174212 
174176 
001126 


001126 


001126 
001126 


MOV #10300, $GDDAT 
MOV #40026 , $BDDAT 
BISB $BDDAT ,1(RO) 
BISB $BDDAT+1,(RO) 
MOV CRO), $BDDAT 
CMP $GDDAT , $BDDAT 
BEQ i$ 
ERROR+2 

1$: CLR CRO) 


sLD EXPECTED 

sSEND DATA FROM “BDDAT” - USE MAIN + IE 
sLOAD HI BYTE CSR 

sLOAD LO BYTE CSR 

sREAD IT BACK 


sDATA ERROR ON BYTE ADDRESSIGN THE CSR 
sZERO CSR BEFORE ADVANCING 


$3 SEERERERREEAEEEEEEAEEEEARAEAEREEEREREEEEEEEEEEEE EERE EEEEEERE LES 


s#TEST 13 TEST THAT THE 3 “FNCT” BITS CONTROL THE 3 “STAT”BITS (COUNT PTRN) 
5 PERRREEEERAEEE EERE ODES EE EEES EEO EE OEEEEEEEELEEEEEREDDLEREEREEEE 


TST13: SCOPE 


MOV #1$, $LPERR 
MOV DRVCSR, $BDADR 
MOV #7000, $GDDAT 
MOV #16,R0 

18: JSR PC ,.KBDSRV 
MOV RO, @DRVCSR 


MOV SORVCSR, $BDDAT 
BIC #170777, $BDDAT 
CMP $GDDAT , $BDDAT 
BEQ 2s 
ERROR+4 

2s: SUB #1000, $GDDAT 
SUB #2,RO0 
BPL 1s 


sSET UP SCOPE LOOP ADRS 

sSET UP CSR ADRS 

3LD EXPECTED 

3RO CONTAINS “FNCT” BITS WRITTEN 

sTEST FOR “tC” sKJLOO1 
sWRITE INTO “FNCT” BITS 

sREAD BACK THRU “STAT” BITS 

sMASK TO “STAT” BITS ONLY 

sCORRECT? 

;BR IF SO 

;“FNCT” BITS FAILED TO SET “STAT” BITS (LOOP BACK 
sCHANGE TO NEXT EXPECTED 

sDECREASE COUNT PATTERN ‘ 

:D0 AGAIN UNTIL 0 TESTED 


§ 5 SREREEEEEEEEEEEDEE ES 44EOEE OSES OO EES OLED EEEEEEEREEEEEEREEERELERS 


s#TEST 14 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 
tH Mepthtethcachtpcpttetahth tbo LLLELeLL Lt LL iti iti tT tit TTT TTT TTT TTT Tt tt 


TST1i4: SCOPE 
MOV #10, $TIMES 
JSR PC ,KBDSRV 
MTPS @PR4 
RESET 
MOV #1$,@DRVCTO 
MOV ORVCSR, $8DADR 
MOV #300, $GDDAT 
MTPS @PRO 
MP (SP),CSP) 
MOV $2$,8DRVCTO 
BIS @BIT6,DRVCSR 
CMP (SP),(SP) 
MOV @DRVCSR, $BDDAT 
ERROR+5 

3$ 
1$: CMP (SP)+,(SP)-+ 
v @ORVCSR, $BDDAT 

ERROR+5 


BR 3$ 

2s: cmp (SP)+,(SP)-+ 
MOV @DRVCSR, $BDDAT 
CMP $GDDAT , $BDDAT 





3300 10 ITERATIONS 


sTEST FOR “tC" sKJLOOL 
sDONT WANT INTR YET 

sSET THE READY FLAG BY INIT 

sSET UP PREMATURE INTR RETURN ADRS 

;SET UP CSR ADRS 

3LD EXPECTED CREADY + IE) 

sALLOW AN INTR 

;STALL 

;SET UP EXPECTED INTR RETRUN ADRS 

sENABLE THE EXPECTED INTERRUPT 

sSTALL 

;SET THE CSR 

sREADY FAILED TO CAUSE AN INTERRUPT 

3GO RESTORE VECTOR 

sSHOULD NEVER GET HERE - IE NOT WORKING? 

;GET THE CSR 

sREADY INTERRUPTED WITHOUT THE IE BIT 
3GO RESTORE VECTOR 

sFIX STACK SINCE NO RETURN 
sREAD STATUS 

sCORRECT? 





SEQ 0024 


) 
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T14 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 


1100 005566 001401 
1101 005570 104005 
1102 005572 004737 


1139 006012 104002 
1140 006014 012777 


006022 000004 


1144 006024 004737 
1145 006030 013737 
1146 006036 012737 
1147 006044 013777 


i 


012474 


013700 
001720 
125252 
001124 


001122 


174066 
001126 
001126 


174040 
001124 


173776 
001122 
001124 


001126 
001126 


173720 
001126 


173674 


001122 
001124 
173646 





BEQ 3$ sBR IF SO 

ERROR+5S sINCORRECT STATUS ON READY INTR 
3$: JSR PC ,RSTVEC sGO RESTORE VECTOR 
WELiLiTr iii rrr rrr rrr ttt itty 
s*#TEST 15 TEST THAT GO CLRS READY & FNCT 2 WILL SET IT 
j  RRRREREREREREE EE EEEE EE OE OS EEOE OS OE OEEE ESOS OEE EEE EE EEEEEEEEEEE 
TST15: SCOPE 

JSR PC ,KBUSRV sTEST FOR “tC” sKJLOO1 

MTPS @PR4 sDONT WANT ANY INTRS 

MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

CLR $GDDAT sEXPECT 0 

MOV #1, 8D0RVCSR sSET GO WHICH SHOULD CLR READY 

MOV @ORVCSR,$BDDAT ;READ THE CSR 

CMP $GDDAT,$BDDAT  ;CORRECT? 

BEQ i$ ;BR IF SO 

ERROR+6 sTHE GO BIT FAILED TO CLR READY 
1$: BIS 4, 8DRVCSR sFNCT 2 SHOULD SET READY 

MOV #2204, $GDDAT sLO EXPECTED 

MOV @ORVCSR,$BDDAT ;GET CSR 

CMP $GDDAT,$B0DAT ;CORRECT? 

BEQ TST16 ssNEXT TEST IF SET 

ERROR+6 sFNCT 2 (VIA INITV2 VIA ATTN) FAILED TO SET READY 


Weiter iii iri rir irri tT) 
s*TEST 16 TEST THAT READY CONTROLS ‘BAR’ BITOO (VIA A00) 
Pictotoriirrrr rir r ri rr rr ririrrrrrrrrrririrrriritr titi tt tit) 
TST16: SCOPE 


JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 
MOV #4, 8D0RVCSR sSET READY 

MOV DORVBAR,$BDADR ;SET UP BAR ADRS 

MOV #1, $GDDAT sEXPECT LSB OF BAR 

TST @ORVWCR sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLO01 
CLR BORVBAR sCLR B 

TST SBORVWCR sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLO01 


MOV GBORVBAR, $BDDAT ;READ BAR 


CMP $GDDAT,$BDDAT  ;CORRECT? 

BEQ is sBR IF SO 

ERROR+2 sAQO FAILED TO READ A ONE (SO TIED TO RDY) 
1%: MOV #1, 8D0RVCSR sSET GOCCLRS BAR BITOO) 

MOV GBORVBAR, $BDDAT ;READ BAR 

BEQ 2$ sBR IF ZERO 

CLR $GDDAT sEXPECTED ZERO 

ERROR+2 sWHEN RDY CLEARED-AOO FAILED TO READ & ZERO 
2%: MOV 4 ,AORVCSR sINSURE RDY SET BEFORE ADVANCING 
§ § OOOO 600040404040 00448 044048 00000000000000000000000000008000408 
s#TEST 17 TEST THAT ‘CYCLE’ WILL CLOCK THE DBR CIN) 


j 5 OOOO OOS OE ESOS 4440000406 06000006 0040000006 000000000000000600088 
TST1i7: SCOPE 


JSR PC .KBDSRV sTEST FOR “tC* 

MOV DRVOBR,$BDADR ;SET UP DBR ADRS 
MOV #125252, $GDDAT ;LD EXPECTED 

MOV $GDDAT,@DRVOBR ;LO DBR WITH #125252 






SEQ 0025 












TEST THAT ‘CYCLE’ WILL 
1148 006052 012777 


CLOCK THE DBR CIN) 
173636 





T17 





1149 006060 012777 052525 173632 MOV #52525 , BORVDBR 
1150 006066 017737 173626 001126 MOV @ORVOBR, $BDDAT 
1151 006074 023737 001124 001126 CMP $GDDAT , $BDDAT 
1152 0061 001401 BEQ i$ 

1153 006104 104017 ERROR+17 

1154 006106 042777 000400 173602 1%: BIC #400 ,@DRVCSR 
1155 006114 012737 052525 001124 MOV #52525 , $GDDAT 
1156 006122 017737 173572 001126 MOV SORVDBR, $BDDAT 
1157 006130 023737 001124 001126 CMP $GDDAT , $BDDAT 
1158 006136 001401 BEQ TsT20 

1159 006140 104002 ERROR+2 


1160 
1161 

s#TEST 20 
anee 006142 000004 TST20: SCOPE 
1163 006144 012737 006166 001110 MOV #1$, $LPERR 
1164 006152 004537 012454 JSR RS ,SETVEC 
1165 006156 006266 2$ 
1166 006160 012700 177776 MOV #-2,R0 
1167 006164 005001 CLR Ri 
1168 006166 004737 013700 1$: JSR PC ,.KBDSRV 
1169 006172 012777 177777 173512 MOV @-1, @ORVWCR 
1170 006200 012777 025224 173506 MOV @DBUF , BSORVBAR 
1171 006206 010037 025224 MOV RO , DBUF 
1172 006212 012777 000101 173476 MOV #101 ,80RVCSR 
1173 006220 052777 000400 173470 BIS #400 , 8DRVCSR 
1174 006226 106427 000000 MTPS @PRO 
1175 006232 013737 001716 001122 MOV DRVCSR , $BDADR 
1176 006240 012737 000700 001124 MOV #700, $GDDAT 
1177 006246 017737 173444 001126 MOV SORVCSR, $BDDAT 
1178 006254 042777 000100 173434 BIC #100 ,8DRVCSR 
1179 006262 104005 ERROR+5 
1180 006264 000442 BR as 
1181 006266 022626 2s: CMP (SP)+,(SP)+ 
1182 006270 004537 012520 JSR RS ,CKSTAT 
1183 006274 000700 700 
1184 006276 000001 
1185 0063500 104007 ERROR+7 
1186 006302 000433 R 4s 
1187 006304 104010 ERROR+10 
1188 006306 000431 a 
1189 006310 104011 ERROR+ 11 
1190 006312 000427 BR as 
1191 006314 012737 025224 001120 MOV @OBUF , $GDADR 
1192 006322 010037 001124 MOV RO, $GDDAT 
1193 006326 017737 173366 001126 MOV GORVOBR, $BDDAT 
1194 006334 023737 001124 001126 CMP $GDDAT , $BDDAT 
1195 006342 001405 BEQ 3$ 
1196 006344 013737 001720 001122 MOV ORVDBR , $BDADR 
1197 006352 104012 ERROR+ 12 
1198 006354 000406 BR as 
1199 006356 005100 38: CoM RO 
1200 006360 005101 Com Ri 
1201 006362 001301 BNE 1s 
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$5 OOO00006 00464606066 646066 4666666606608 6606600600046 004464 44460460 4640084 


TEST SINGLE “DATI” NPR TRANSFERS C(FLOATINGS & COMPLEMENT PATRN) 
jj PRRORE ROSES EOE EEEEEE ESOS OE 440006 0006006000000 060000000000 08008 














sSET CYCLE - SHOULD CLK DBR CIN) 
sCHANGE DBR COUT) DATA - SHOULD NOT AFFECT CIN) 
sREAD DBR 

sCORRECT? 

3;BR IF SO 

sCYCLE DIO NOT LATCH DBR CIN) DATA 

sCLEAR CYCLE BIT 

sNOW EXPECT #52525 

sREAD DBR 

sCORRECT? 

ssNEXT TEST IF SO 

;DBR FAILED TO READ WHEN CYCLE CLEARED (NORMAL ) 





























sSET UP SCOPE LOOP ADRS 

sGO SET UP INTERRUPT RETURN 
sRETURN TO 2% ON INTR 
sFLOAT ZERO RIGHT TO LEFT 
sR1 CONTROLS DATA SHIFTINGS 
sTEST FOR “tC” 


300 ONE XFER 
sGET DATA WORD FROM “DBUF” 
sSET UP MEM DATA 
sSET IE &€ GO (CO,Ci = ZERO) 
sSET CYCLE 
sENABLE THE INTR 
sSET UP CSR ADRS 
3LDO EXPECTED 
sREAD THE CSR 
sCLR IE 
sWCO FAILED TO INTERRUPT (CHECK FOR WCO) 
3GO RESTORE VECTOR 
sINTR RETURNS HERE - FIX STACK SINCE NO RTI 
3G0 CHECK STATUS 
sCSR STATUS EXPECTED 
3@ OF XFERS 
sRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY € IE 
3GO RESTORE VECTOR 
sRETURN HERE IF WC ER - EXPECTED 0 
3GO0 RESTORE VECTOR 
sRETURN HERE IF BAR ER - SHOULD = DBUF +2 
3GO0 RESTORE VECTOR 
sRETURN HERE IF OK - SET UP XFER ADRS 
3LO EXPECTED 
sREAD DATA XFERED 
ORRECT? 






sKJLO001 






















OBR ADRS 
sDATA ER - DBR CONTAINS WRONG DATA 
sGO RESTORE VECTOR 
sRETURN HERE ON GOOD DATA - NOW COM PATRN 
sKEEP TRACK OF COMPLEMENT 
300 COMPLEMENT OF THIS FLOATING ZERO IF 0 















T20 


1202 
1203 
1204 
1205 
1206 


1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 





OE ES SA AS 
C-ZORVB-0 DRV11-WA DMA INTERFAC MACRO YOS.02 Monday 08-Apr-85 16:01 Page 10-17 





TEST SINGLE “DATI” NPR TRANSFERS (FLOATINGS & COMPLEMENT P 


006364 
006366 
006370 
006372 


006300 
005200 
103676 
004737 


000004 


012737 
004537 
006514 
012700 
005001 
004737 
012777 
012777 
010077 
012777 
052777 
106427 
013737 
012737 
017737 
104005 
000442 
022626 
004537 
001702 
000001 
104007 


000433 
104010 
000431 
104011 
000427 
012737 


000004 
012737 


012474 


006422 
012454 


177776 


173210 


012520 


025224 
001124 
025224 
001124 


001720 


012474 


000010 





001110 


173256 
173252 


173242 
173234 


001122 


001124 
001126 


001120 


001126 
001126 


001122 


001160 


4$; JSR 


RO 
RO 


1$ 
PC ,RSTVEC 


sWAS DONE - NOW SHIFT ZERO LEFT 
sKEEP LSB SET 

sAGAIN TILL ZERO BIT IN CARRY 
sGO RESTORE VECTOR 


FF SSRRARAKESAEEREEERES CEKREEEEEAOAEEEEEDERASAEAEEREREEEREREREREERS 


s#TEST 21 


TEST SINGLE “DATO” NPR TRANSFERS (FLOATING 0 COMPLEMENT PARTRN) 


FF SSHSEHEEAEEEEEAEEAEREAHAERERESEREEEAEEERAEEEARERAEEAREEAERERERE 


TST21: SCOPE 


1$: 


MOV 
ERROR-5S 
BR 


CMP 
JSR 
1702 


1 
ERROR+7 


2s: 


BR 
ERROR-10 
BR 
ERROR+11 
BR 


MOV 


3s. 


4s: JSR 


#1$,$LPERR 
RS, SETVEC 


@-2,R0 

Ri 

PC .KBDSRV 
@-1, 80RVWCR 
DBUF , BORVBAR 
RO,@DRVOBR 
#103, @DRVCSR 
#400, 8DRVCSR 
@PRO 

DRVCSR, $BDADR 
#1702, $GDDAT 
@ORVCSR, $BDDAT 


4s 


(SP)+,(SP)-+ 
RS ,CKSTAT 


43 

4s 

as 

@DBUF , SGDADR 

RO, $GDDAT 

DBUF , $BDDAT 

en eeee 
S 


DRVDBR , $BDADR 


PC .RSTVEC 


sSET UP SCOPE LOOP ADRS 

sGO SET UP INTERRUPT RETURN 

sRETURN TO 2$ ON INTR 

sFLOAT ZERO RIGHT TO LEFT 

sR1 CONTROLS DATA SHIFTING 

sTEST FOR “tC” 

300 ONE XFER 

sWRITE DATA WORD TO “DBUF” 

sSET UP DATA IN DBR 

sSET IE, GO & FNCT1 (CO = O, Ci = 1) 
sSET CYCLE 

sENABLE THE INTR 

sSET UP CSR ADRS 

:3LD EXPECTED 

sREAD THE CSR 

sWCO FAILED TO INTERRUPT (CHECK FOR WCO) 
GO RESTORE VECTOR 

sINTR RETURNS HERE - FIX STACK SINCE NO RTI 
3GO CHECK STATUS 

sCSR STATUS EXPECTED 

3% OF XFERS 

sh=TURN HERE IF STATUS ER - EXPECTED STAT C, 
sCYCLE, READY, IE & FNCT 1 

GO RESTORE VECTOR 

sRETURN HERE IF WC ER - EXPECTED 0 

sGO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = DBUF+2 
sGO RESTORE VECTOR 

sRETRUN HERE IF OK - SET UP XFER ADRS 

sLD EXPECTED 

sGET DATE XFERED 

sCORRECT? 

;BR IF SO 

sSET UP DBR ADRS 

sDATA ER - MEM CONTAINS WRONG DATA 

sGO RESTORE VECTOR 

sRETURN HERE ON GOOD DATA - NOW COM PATRN 
sKEEP TRACK OF COMPLEMENT 

sD0 COMPELMENT OF THIS FLOATING ZERO IF 0 
sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
sKEEP LSB SET 

sAGAIN TILL ZERO BIT IN CARRY 

sGO RESTORE VECTOR 


ett LLL Tt TTT TTT TTT ETT TT TT TTT TTT TTT TTT 


s#TEST 22 


SCOPE 
MOV 


TST22: 


TEST 200 “DATI” NPR TRANSFERS (BURST MODE) 
§ fi PPRREAEAAEEEEE SEAS EAAESDAEEAAEEEAEEDEEESARAEARARARERE REALE EEE 


#10, $TIMES 


3:00 10 ITERATIONS 






sKJLOO1 
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TEST 200 “DATI” NPR TRANSFERS (BURST MODE) 


T22 


004737 
004537 
006732 
004737 
012777 
012777 
012702 
004737 


000004 
012737 


004737 
004537 
007136 
012777 
012777 
012777 
012702 
004737 
013737 
012737 
017737 
042777 
104005 
000416 
022626 
004537 
001702 


013700 
012454 


013140 
177470 
025224 
000101 
013652 
001716 
000700 
173000 
000100 


012520 


026042 
070707 
172720 
001124 


001720 
012474 


000010 


013700 
012454 


177470 
025224 
177377 
009103 
013652 
001716 
001702 
172574 
000100 


012520 





173032 
173026 


001122 
001124 
001126 
172770 


001120 
001124 
001126 
001126 


001122 


001160 


172634 
172630 
172626 


001122 
001124 
001126 
172564 


SEQ 0028 


sTEST FOR “tC” 

sGO SET UP INTERRUPT RETURN 

sRETURN TO 1° ON INTR 

sGO LOAD BUFFER WiTH COMPLEMENTING PATRN 
sLOAD WC REG - WILL DO 200 XFERS 

sSET UP CURRENT ADRS 

sSET IE € GO IN R2 (CO = O, C1 = 0) 
sWAIT FOR INTERRUPT 


sKJLOO1 


-sSET UP CSR ADRS CONLY HERE IF ERROR) 


sLD EXPECTED 
sREAD THE CSR 
sCLR INTR ENABLE 
sWCO FAILED TO INTERRUPT (SINGLE CYCLE ON COULD CAUSE THIS) 
sGO RESTORE VECTOR 
sINTR RETURNS HERE - FIX STACK SINCE NO RTI 
sGO CHECK STATUS 
sCSR STATUS EXPECTED 
:@ OF XFERS 
sRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE 
sGO RESTORE VECTOR 
sRETURN HERE IF WC ER - EXPECTED 0 
GO RESTORE VECTOR 
sRETURN HERE IF BAR ER - SHOULD = DBUF +620 
sGO RESTORE VECTOR 
30K - SET UP LAST XFER ADRS WHERE #70707 SHOULD BE 
sLD EXPECTED 
sDBR SHOULD HAVE LAST DATUM 
sCORRECT? 
:BR IF SO 
sSET UP DBR ADRS 
sDATA ER - DBR DID NOT CONTAIN EXPECTED LAST XFER 
sGO RESTORE VECTOR 


5 Ff PHSREAEREAEESEAAASEALEAESAAEAREAEAEAASERERASALAKLALALALALER ADELE 


TEST 200 “DATO” NPR TRANSFERS (BURST MODE) 
js PPRRREEAEAAEEEEE EEE EEEAEREDEREA SAAD EAAREALERALEREERERER EEA EES 


JSR PC ,KBDSRV 
eS RS ,SETVEC 
$ 
JSR PC ,LOBUF 
MOV -200. ,@ORVWCR 
MOV @DBUF , ADRVBAR 
MOV #101,R2 
JSR PC, TIMER 
MOV DRVCSR , $BDADR 
MOV #700, $GDDAT 
MOV @DRVCSR, SBDDAT 
BIC #100, @DRVCSR 
ERROR+S 
BR es 
1$: CMP (SP)+,(SP)+ 
JSR RS ,CKSTAT 
700 
200. 
ERROR+7 
BR 2$ 
ERROR+10 
BR es 
ERROR+11 
BR 2s 
MOV O0BUF +616, $GDADR 
MOV #70707, $GDDAT 
MOV @ORVDOBR, $BODAT 
CMP $GDDAT, $BDDAT 
BEQ es 
MOV ORVOBR , $BDADR 
ERROR+12 
23: JSR PC ,RSTVEC 
s#TEST 23 
TST23: SCOPE 
MOV #10, $TIMES 
JSR PC ,.KBDSRV 
= RS ,SETVEC 
MOV #-200. ,@DRVWCR 
MOV #DBUF , BRVBAR 
MOV #177377, @8DRVDBR 
MOV #103 ,R2 
JSR PC, TIMER 
MOV DRVCSR, $BDADR 
MOV #1702, $GDDAT 
MOV @DRVCSR, $BDDAT 
BIC #100,3DRVCSR 
ERROR+5 
BR 2$ 
18; CMP (SP)+, (SP): 
JSR R5,CKSTAT 
1702 


::D0 10 ITERATIONS 


sTEST FOR “tC” 
sGO SET UP INTERRUPT RETURN 
sRETURN TO 1$ ON INTR 

sWORD WC REQ - WILL DO 200 XFER’S 
sSET UP CURRENT ADRS 

sTHIS WILL BE WRITTEN TO MEM 

sSET IE, FNCT 1 &€ GO IN R2 (CO = 0, C1 = 1) ;kKULO02 
sWAIT FOR INTERRUPT s#KJLO02 

sSET UP CSR ADRS CONLY HERE IF ERROR) 

3LD EXPECTED 

sREAD THE CSR 

sCLR INTR ENABLE 

sWCO FAILED TO INTERRUPT (SINGL CYCL ON COULD CAUSE THIS) 
sGO RESTORE VECOTR 

sINTR RETURNS HERE - FIX STACK SINCE NO RTI 

:GO CHECK STATUS 
sCSR STATUS EXPECTED 


sKJLOO1 





T23 





TEST 200 “DATO” NPR TRANSFERS (BURST MODE) 


097146 
097150 


007152 
007154 
007156 
007160 
007162 
007164 
007170 
007172 


007176 
007200 


007206 
007214 
007220 
007222 
007226 
0C7232 
007236 
007244 
007252 
007256 
007262 
007266 
007270 
007276 
007304 
007312 
007214 
007316 
007320 
007322 
007324 
007330 
007332 
007334 


007340 
007342 


007350 
007356 
007362 
007364 
007370 
007376 
007402 
007410 
007416 


000310 
104007 


000004 
012737 


013737 
004537 
007316 
012700 
005037 
004737 
012777 
012777 
012702 
004737 
005237 
001375 
012737 
017737 
042777 
104005 
000407 
022626 
005300 
001343 
005737 
001401 
104014 
004737 


000004 
012737 


013737 
004537 
007474 
012700 
012737 
004737 
012777 
012777 
106427 


013272 
012474 


000010 


001716 
012454 


000010 
001126 
013700 
177470 
025224 
000101 
013652 
001124 


000700 
172414 
000100 


001126 


012474 


000010 


001716 
012454 


000010 
000000 
013700 
177470 
025224 
000000 





001160 
001122 


172446 
172442 


001124 
001126 
172404 


001160 
001122 


001126 


172302 
172276 


200. 
ERROR+7 


BR es 
ERROR+10 
BR 


ERROR+11 


2s: JSR 


a 
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2s 


2$ 
PC ,CKDAT 
13 


PC ,RSTVEC 


3@ OF XFERS 

sRETURN HERE IF STATUS ER - EXPECTED STAT C, 
sCYCLE, READY, IE & FNCT 1 

sGO RESTORE VECTOR 

sRETURN HERE IF WC ER - EXPECTED 0 

sGO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = DBUF +620 

sGO RESTORE VECTOR 

sRETURN HERE IF OK - NOW GO CHECK DATA 

sRETURN HERE IF DATA ER - DBR CONTAINS WRONG DATA 
sRETURN HERE IF DATA CHECK OK - GO RESTORE VECTOR 


FF RRRAREEEAKESEAAEAEEEAAAAEAARASAEEAAARERAREEEREKEEEREDEREDESEEE 


TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF 
§ PRRRAEEAEAAREREAARAEEAEAEAESESEEAEERESEARAEEREKEAREEEARA DA EERES 


:*TEST 24 


TST24: SCOPE 
MOV 


1$: JSR 


2s: INC 


3$: CMP 


B 
ERROR+14 
4$: JSR 


#10, $TIMES 


DRVCSR, $BDADR 
RS ,SETVEC 


#10,RO0 

$BDDAT 

PC ,KBDSRV 
#-200. ,aDRVWCR 
#DBUF , AORVBAR 
#101,R2 

PC, TIMER 
$GDDAT 

es 

#700, $GDDAT 
@DRVCSR, $BDDAT 
#100,@DRVCSR 


4s 
(SP)+,(SP)+ 
RO 

1s 

SBDDAT 

4$ 


PC .RSTVEC 


+3CO 10 ITERATIONS 


;SET UP CSR ADRS 

;GO SET UP INTR RETURN 

sRETURN TO 3$ ON INTR 

:D0 EIGHT 200 WORD xFER‘S 

;USE $BDDAT AS A COUNTER 

sTEST FOR “tC” sKJLOO1 
300 200 XFERS (DATI‘S) 

sFROM DBUF 

sSET IE & GO IN R2 (SINGLE CYCLE LOw) :KJLO002 
sGO WAIT FOR INTERRUPT OR XFER COMPLETE ;KUL002 
sSTART COUNTING - SHOULD NEVER GET HERE 

sUNTIL 64K 

3LO EXPECTED 

sREAD STATUS 

;CLR IE 

3NO INTERRUPT ON 200 DATI'S 

:GO RESTORE VECTOR 

sFIX STACK SINCE NO RTI 

;DONE 8 TIMES? 

3;BR IF NOT 

;SHOULD STILL BE ZERO 

:BR IF SO 

sBURST MODE (SINGLE CYCLE=0) FAILS TO LOCK OUT CPU 
350 RESTORE VECTOR 


5 5 RRRREEERAREREACESREAEEAERABEARAEAEERAKAALEASALARERAARARELALAEEE 


TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON 
§ i PRPRRERRAEEAAEEEEARESASEAAEEADEAEAREEEEESA RADA EERE EEREAREREE EES 


s#TEST 25 


TST25: SCOPE 
MOV 


1$: JSR 


#10, $TIMES 


DRVCSR, $BDADR 
RS ,SETVEC 


#10,RO 

#0, $BDDAT 

PC ,KBDSRV 
#-200. ,@DRVWCR 
#DBUF , ORVBAR 
#PRO 


+300 10 ITERATIONS 


sSET UP CSR ADRS 

sGO SET UP INTR RETURN 
sRETURN TO 3$ ON INTR 

:00 EIGHT 200 WORD XFER‘S 
sUSE $BDDAT AS A COUNTER 
sTEST FOR “tC” 

3D0 200 XFERS (DATI'S) 
sFROM DBUF 

ALLOW AN INTR 


sKJLOO1 











SS SS 
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SEQ 0030 
T25 TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON 

1354 007422 012777 000111 172266 MOV #111,@8DRVCSR sSET IE, FNCT3 & GO (SINGLE CYCLE HIGH) 

1355 007430 052777 000400 172260 BIS #400, 8DRVCSR ;SET CYCLE 

1356 007436 000240 NOP ;FREEBEE 

1357 007440 005237 001126 2s: INC $BDDAT sSTART COUNTING 

1358 007444 001375 BNE 2$ sUNTIL 64K - SHOULD INTR BEFORE OVERFLOW 

1359 007446 012737 004710 001124 MOV #4710, $GDDAT 3LD EXPECTED 

1360 007454 017737 172236 001126 MOV BDRVCSR,$BDDAT ;READ STATUS 

1361 007462 042777 000100 172226 BIC #100,8DRVCSR :CLR IE 

1362 007470 104005 ERROR+5 sNO INTERRUPT ON 200 DATI’S (WITH SINGLE CYCLE) 

1363 007472 000423 BR 5$ 3GO RESTORE VECTOR 

1364 007474 022626 3$; CMP (SP)+,(SP)+ sFIX STACK SINCE NO RTI 

1365 007476 005300 DEC RO ;DONE 8 TIMES? 

1366 007500 001336 BNE 1$ :BR IF NOT 

1367 007502 022737 000000 001126 CMP #0, $BDDAT +$BDDAT SHOULD HAVE BEEN COUNTED 

1368 007510 103401 BCS 4$ :BR IF SO 

1369 007512 104015 ERROR+15 sCPU APPEARED LOCKED OUT WITH SINGLE CYCLE SET 

1370 007514 017737 172176 001126 43: MOV @ORVCSR,$BDDAT ;READ STAUTS 

1371 007522 012737 004710 001124 MOV #4710, $GDDAT 3LD EXPECTED 

1372 007530 023737 001124 001126 CMP $GDDAT , $BDDAT sCORRECT? 

1373 007536 001401 BEQ 5$ 3;BR IF SO 

1374 007540 104007 ERROR+7 sSTATUS INCORRECT ON XFER WITH SINGLE CYCLE SET 

ie 007542 004737 012474 5$: JSR PC,,RSTVEC ;GO RESTORE VECTOR 

1376 

1377 3 § REREREEREREEAEAAEEREREEAAEEEEEEEAEAKEAAESEAAAREAREARARAARALAS ARE 
s*TEST 26 TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE 
FY §FRERRERAEREEEEEEEREAEEEEEAEAAEAEEAEEARAAEARAREAEARAEAREKERAL EE AKS 

007546 000004 TST26: SCOPE 
007550 012737 000200 001160 MOV #200, $TIMES 3:D0 200 ITERATIONS 

1378 F} § REREAEERAAAEEREAEREERERAERAARASEEAREEAEARAEARAREREAARAAREAEALES 

1379 :*During maintenance-mode testing, the DRV11-WA does alternating DATI/DATO ;KJLOO5 

1380 s*transfers at consecutive locations; i.e. a DATI from location X is followed 7K JLOO5 

1381 s*im sequence by a DATO to location X+2, etc. :KJLOO05 

1382 3 § RREREERARAEEAEREEREAARAAREEAKARARAALAAAAARERAEAEASEERAREAL AER AES 

1383 007556 004537 012454 JSR RS ,SETVEC 3GO SET UP INTR RETURN 

1384 007562 007710 2$ sRETURN TO 2$ ON INTR 

1385 007564 004737 013216 JSR PC ,LDBUF 1 GO SET UP DBUF (SPECIAL COM PATTERN) 

1386 007570 012737 011702 007716 MOV #11702 ,3$ 33$ CONTAINS EXPECTED STATUS 

1387 007576 012737 000001 007720 MOV #1,4$ 34$ CONTAINS THE CURRENT XFER NO @ (MAX 8) 

1388 007604 004737 013700 1$: JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 

1389 007610 106427 000000 MTPS #PRO ;ALLOW INTR 

1390 007614 005777 172072 TST @DRVWCR ;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1 

1391 007620 012777 025224 172066 MOV @DBUF , ADRVBAR ;SET UP CURRENT ADRS 

1392 007626 013777 007720 172056 MOV 4$ ,ADRVWCR :SET XFER # 

1393 007634 005477 172052 NEG @DRVWCR sNEGATE FOR WC 

1394 007640 012777 010101 172050 MOV #10101,@DRVCSR ;SET UP MAINT, IE & GO 

1395 007646 052777 000400 172042 BIS #400,@DRVCSR ;SET CYCLE 

1396 007654 013737 001716 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

1397 O0O7E62 013737 007716 001124 MOV 3$,$GDDAT ;LD EXPECTED 

1398 007670 017737 172022 001126 MOV SDRVCSR,$BDDAT ;READ STATUS 

1399 007676 042777 000100 172012 BIC #100,@3DRVCSR s;DISABLE IE 

1400 007704 104005 ERROR+5 sNO INTR ON XFER CIN MAINT MODE) 

1401 007706 000440 BR 6$ :GO RESTORE VECTOR 

1402 007710 022626 2$: CMP (SP)+,(SP)+ sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 

1403 007712 004537 012520 JSR R5,CKSTAT :GO CHECK STATUS 

1404 007716 011702 3$: 11702 sTHIS LOCATION WILL CONTAIN EXPECTED STATUS 

1405 007720 000001 4$: 1 sTHIS LOCATION WILL CONTAIN CURRENT XFER # (MAX 8) 

1406 007722 104007 ERROR+7 sRETURN HERE IF STATUS ER - WILL EXPECT 








T26 


1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 





ee 
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TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE 


007724 
007726 
007730 
007732 
007734 
007736 
007744 
007752 
007754 
007762 
007766 
007774 
007776 
010002 
010004 
010006 
010010 


010014 
010016 


010024 
010030 
010034 
010040 
010042 
010050 
010056 
010062 
010070 
010072 
010100 
010106 
010114 
010122 
010130 
010136 
010144 
010146 
010150 
010152 
010160 
010166 
010174 
010176 
010204 


010206 
010210 
010216 
019224 
010232 


000004 
012737 


012700 
004737 
004537 
010150 
012777 
012777 
106427 
032777 
001403 
012777 
012777 
052777 
013737 
012737 
017737 
042777 
104016 
000526 
022626 
017737 
012737 
023737 
001405 
013737 
104016 


000506 
017737 
012737 
023737 
001405 


001002 
020000 


010700 
007720 
000011 


013344 


012474 


000100 


000002 
013700 
012454 


177777 
160000 
000000 
010000 


000077 
000161 
000400 
001716 
140760 
171562 
000100 


171540 
140760 
001124 


001716 


171476 
000000 
001124 





007716 
007716 


007716 
007720 


001160 


171642 
171636 


171050 


171622 
171610 
171602 
001122 
001124 
001126 
171552 


001126 
001124 
001126 


001122 


001126 
001124 
001126 


BR 6$ 
ERROR+10 
BR 6$ 
ERROR+11 
BR 6$ 
ADD #1002,3$ 
BIT #B1T13,3$ 
BEQ 5$ 
MOV #10700,3$ 
S$: INC 4s 
CMP #11,48 
BNE 1$ 
JSR RS ,CKDAT1 
10 
ERROR+13 
NOP 
6$: JSR PC ,RSTVEC 


sMAINT, COUNT INCREASE OF FNCT €& STAT BITS, 
sCYCLE, READY & IE 

3GO RESTORE VECTOR 

sRETURN HERE IF WC ER - SHOULD BE 0 

:GO RESTORE VECTOR 

sRETURN HERE IF BAR ER- 

:GO RESTORE VECTOR 

sRETURN HERE IF OK - ADVANCE EXPECTED STATUS LOC 
sLOOK FOR OVERFLOW 

;BR IF NOT 

sFNCT & STAT BITS SHOULD BE ZERO THIS TIME 
sADVANCE CURRENT XFER # 

sHAVE 10 XFERS BEEN DONE 

;BR IF NOT 

sNOW GO CHECK DATA 

3% OF XFER'S TO CHECK 

sRETURN HERE IF DATA ER - (WITH MAINT SET) 
sRESTORE VECTOR NEXT 

:GO RESTORE VECTOR 


5 RRA EREAERAEEERERARSAEARAEREAEARERAARAAARARRRAEAKEARARAKRARARA KS 


TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ‘NEX’ 
§ 5 RRRRRRREEEAAEAEEEEEAEEEEEAREAEEAREAEEAEAARARARASAERARAEE AREA AES 


s#TEST 27 
TST27: SCOPE 
MOV 


1$: JSR 


10$: MOV 


2s: CMP 


MOV 
ERROR+16 


BR 
3$: MOV 
MOV 
CMP 
BEQ 


#100, $TIMES 


#2,RO0 
PC ,KBDSRV 
RS, SETVEC 


#160000, BDRVBAR 
#PRO 

#SW12,SWR 

10$ 


#000077, @DRVBAE 
#161,8DRVCSR 
#400, @DRVCSR 
DRVCSR, $BDADR 
#140760, $GDDAT 
SORVCSR, $BDDAT 
#100, 8DRVCSR 


7$ 

(SP)+,(SP)+ 
SDRVCSR, $BDDAT 
#140760, $GDDAT 
ae aaa 


$ 
DRVCSR , $BDADR 


7$ 

SORVWCR, $BDDAT 
#0, $GDDAT 
$GDDAT , $BDDAT 
4s 


3300 100 ITERATIONS 


sRO WHEN ZERO SAYS CLR ‘NEX' WITH RESET 

;TEST FOR “tC" sKJLOOL 
:GO SET UP INTERRUPT RETURN 

sRETURN TO 2$ ON TIMEOUT INTR 

;SET UP FOR ONE XFER‘S 

sSET UP BAR TO 160000 (RESERVED) 

sALLOW INTR 

sTEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON) 
;BR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF) 
sSET XAD 21,20,19,18,17,16 

;SET IE, XAD 17,16 & GO 

;SET CYCLE 

sSET UP CSR ADRS - SHOULD NEVER GET HERE 
;LD EXPECTED 

;GIVE THEM THE STATUS 

;CLR IE 

sNEX FAILED TO CAUSE AN INTERRUPT 

:GO RESTORE VECTOR 

sSHOULD INTR RETURN HERE - FIX STACK 
;READ THE CSR 

;LD EXPECTED 

sCORRECT? 

;BR IF SO 

;SET UP CSR ADRS 

sSTATUS ER - EXPECTED 

sER, NEX, CYCLE, READY, IE, XAD17 & XAD16 
:GO RESTORE VECTOR 
sREAD WORD COUNT 
3** SHOULD HAVE 0 
sCORRECT? 

;BR IF SO 
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Te? 


010234 
010242 
010244 
010246 
010252 
010260 
010266 
010274 
010302 
010304 
010312 
010314 
010316 
010320 
010322 
010330 
010336 
010344 
010352 
010354 


019566 
010570 


013737 
104010 
000467 
005777 
017737 
042737 


000004 
012737 


004737 
004537 
010566 
004737 
005777 
012777 
012777 
106427 
012777 
052777 
012737 
005237 
001375 
013737 
012737 
017737 
042777 
104005 
000420 
022626 
004537 


001712 


171440 
171436 
000001 
160002 
001124 


001714 


040000 
171362 
000760 
001124 


001716 


171322 
000200 
001124 
001716 


012474 


000010 


013700 
012454 


013216 


012520 


001122 


001126 
001126 
001124 
001126 


001122 


171366 
001126 
001124 
001126 


001122 


001126 
001124 
001126 


001122 


001160 


171224 
171214 


171206 
171200 
001126 


001122 
001124 
001126 
171134 


4$; 


5$: 


6$: 


7$: 


MOV 
on 


ERROR+16 
JSR 


TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ‘NEX’ 


DRVWCR , $BDADR 


7$ 

SDRVWCR 
SDRVBAR, $BDDAT 
#BITOO, $BDDAT 
#160002, $GDDAT 
$GDDAT , $BDDAT 


5$ 
DRVBAR , $BDADR 


7$ 

RO 

6$ 
#40000 , BDRVCSR 
SBORVCSR, $BDDAT 
#760, $GDDAT 
$GDDAT , $BDDAT 


1$ 

DRVCSR, $BDADR 
78 

SDRVCSR, $BDDAT 
#200, $GDDAT 
Gee eee 
DRVCSR, $BDADR 


PC ,RSTVEC 


;SET UP WCR ADRS 

3#* WC WAS NOT INCREMENTED ON A TIMEOUT ER 
:GO RESTORE VECTOR 

;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1 
sREAD BUFFER ADRS 

3#* DON'T NEED BITOO 

3#& SHOULD HAVE INCREMENTED 

sCORRECT? 

;BR IF SO 

sSET UP BAR ADRS 

;#* BAR WAS NOT INCREMENTED ON A TIMEOUT ER 
3GO RESTORE VECTOR 

sKEEP TRACK ON HOW TO CLR 

;BR IF CLR BY RESET 

sWRITE NEX TO ZERO 

sREAD CSR ; 

;LD EXPECTED 

sCORRECT? 

;BR IF SO + REPEAT TEST FOR RESET TEST 
;SET UP CSR ADRS 

;'NEX' FAILED TO WRITE TO ZERO 

:GO RESTORE VECTOR 

;ISSUE BUS RESET 

;READ THE CSR 

sEXPECT ONLY READY 

sCORRECT? 

;BR IF SO 

;SET UP CSR ADRS 

;RESET FAILED TO CLR 'NEX' 

3GO RESTORE VECTOR 


£5 RRAAEEEEREEEEEEAEERAEREEAREAARARERERERERERARAARARAREARKEAAALERES 


s#TEST 30 


TST30: 


1$: 


2s: 


SCOPE 
MOV 


TEST 200 NPR TRANSFERS IN MAINT MODE 
5 RRRREREREEEAERREEEREREREREAEEERERE EERE AAAS AEAERERE ER EE EERE EE EEE 


#10, $TIMES 


PC ,KBDSRV 
RS, SETVEC 


PC ,LOBUF 1 
SDRVWCR 
#DBUF , BORVBAR 
#-200. ,@DRVWCR 
#PRO 

#10101, 8DRVCSR 
#400 ,@DRVCSR 
#0, $BDDAT 
$BDDAT 

1$ 


DRVCSR, $BDADR 
#10700, $GDDAT 
@DRVCSR, $BDDAT 
#100, @DRVCSR 


3$ 
(SP)+,(SP)+ 
R5,CKSTAT 


3:00 10 ITERATIONS 


sTEST FOR “tC” 

GO SET UP INTR RETURN 

sRETURN TO 2$ ON INTR 

sGO SET UP DBUF (SPECIAL COM PATTERN) 
;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1 
SET UP CURRENT ADRS 

sSET UP PCR 200 XFER'S 

sALLOW INTR 

sSET MAINT, IE & GO CDATI) 

sSET CYCLE 

SET UP A COUNTER 

sCOUNT AWAY 

sWAIT TILL DONE - SHOULD INTR BEFORE OVFLO 
sSET UP CSR ADRS 

3LD EXPECTED 

sREAD STATUS 

sDISABLE IE 

sNO INTR AFTER 200 MAINT MODE XFER'S 

sGO RESTORE VECTOR 

sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 
3GO CHECK STATUS 


sKJLOO1 


RR) ee ttle oni 


SEQ 0032 





T30 


1513 
1514 
1515 


—= 


—— 





TEST 200 NPR TRANSFERS IN MAINT MODE 


010574 
010576 
010600 


010602 
010604 
010606 
010610 
010612 
010614 
010620 
010622 
010624 
010626 


010632 
010634 


010642 
010646 
010650 
010656 
010662 
010670 
010676 
010700 
010704 
010710 
010716 
010724 
010730 
010736 
010744 
010752 
010756 
010760 
010766 
010774 
011002 
011010 
011012 
011014 
011016 
011022 
011024 
011026 


011030 
011032 
011034 
011036 
011040 
011042 
011046 


010700 
000310 
104007 


000004 
012737 


004537 
011014 
012737 
004737 
062737 
023737 
001467 
004737 
005777 
013777 
012777 
106427 
012777 
052777 
012737 
005237 
001375 
013737 
012737 
017737 
042777 
104005 
000421 
022626 
004537 
010700 
000310 
104007 


013344 


012474 


171002 


012520 


013344 





001160 


001736 


001736 
001736 


170776 
170766 


170760 
170752 
001126 


001122 
001124 
001126 
170706 


10700 
200. 
ERROR+7 


a ee 
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BR 3$ 
ERROR+ 10 


BR 3$ 
ERROR+11 
BR 3 


JSR 
0 


3$: JSR 


200. 
ERROR+13 
NOP 


$ 
RS ,CKDAT1 


PC ,RSTVEC 


sEXPECTED STATUS 

3% OF XFERS 

sRETURN HERE IF STATUS ER - EXPECTED MAINT, 
sCYCLE, READY € IE 

sGO RESTORE VECTOR 

sRETURN HERE IF WC ER - SHOULD BE 0 

sGO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = DBUF+620 
sGO RESTORE VECTOR 

sRETURN HERE IF OK - NOW GO CHECK DATA 

3@ OF XFER‘S TO CHECK 

sRETURN HERE IF DATA ER - (WITH MAINT SET) 
sRESTORE VECTOR NEXT 

sGO RESTORE VECTOR 


$3 REREERERERAEARAAEERAEEAREARERERAEAERERAREAAEARAEEARAEKAKARRARAS 


TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4K 
5 5 REEEERREREEREAEE EERE RE ERERASEREAEEERERAEARERERERERER AERA RARE EEL 


;4TEST 31 
TST31: SCOPE 
MOV #5, $TIMES 
JSR RS, SETVEC 
MOV #20000 , DBUFP 
1s: JSR —s- PC, KBDSRV 
ADD #20000 , DBUFP 
CMP —« CORSZ, DBUFP 
BEQ) 4s 
JSR —s- PC, LDBUF 1 
TST SDRVWCR 
MOV DBUFP, @DRVBAR 
MOV #-200. ,@DRVWCR 
MTPS  @PRO 
MOV #10101, ,@DRVCSR 
BIS #400, DRVCSR 
MOV = #0, $BDDAT 
2s: INC $BDDAT 
BNE _— 2 
MOV -—s ORVCSR, $BDADR 
MOV #10700, $GDDAT 
MOV —« @DRVCSR, $BDDAT 
BIC #100, @DRVCSR 
ERROR+5 
BR 4s 
3$: CMP (SP)+,(SP)+ 
JSR —sR5,, CKSTAT 
10700 
200. 
ERROR+7 
BR 4s 
ERROR+10 
BR As 
ERROR+11 
BR 4s 
JSR —s RS, CKDAT1 
200. 


+300 5 ITERATIONS 


sGO SET UP INTR RETURN 

sRETURN TO 3$ ON INTR 

sGET LOWEST BUFFER ADRS 

sTEST FOR “tC” 

sPOINT TO NEXT 4K 

sIS THE 4K THERE? 

:BR IF NOT 

:GO SET UP SPECIAL COMPLEMENT PATTERN 
;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLO01 
sSET UP BUFFER ADRS 

sSET UP FOR 200 XFER'S 

sALLOW INTR 

sSET MAINT, IE & GO 

sSET CYCLE 

sSET UP A COUNTER 

sCOUNT AWAY 

sSHOULD ALWAYS INTR FROM THIS LOOP 

sSET UP CSR ADRS 

sLD EXPECTED 

sREAD CSR 

sDISABLE IE 

sNO INTR AFTER 200 MAINT MODE XFER‘S 

GO RESTORE VECTOR 

sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 
GO CHECK STATUS 

sEXPECTED STATUS 

3#@ OF XFER‘S ' 

sRETURN HERE IF STATUS ER - EXPECTED MAINT. 
sCYCLE, READY € IE 

:GO RESTORE VECTOR 

sRETURN HERE IF WC ER - SHOULD = 0 

sGO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = DBUFP+620 
GO RESTORE VECTOR 

sRETURN HERE IF OK - NOW GO CK DAT 

s# OF XFER'S TO CK 


sKJLOOL 





SEQ 0033 
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T31 


TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILAB 


011050 
011052 
011054 
011056 
011064 


011070 


011072 
011076 
011102 
011104 
011110 
011112 
011120 
011126 
011132 
011140 
011144 
011152 
011154 
011162 
011170 
011176 
011204 
011212 
011220 
011226 
011230 
011232 
011234 
011240 
011242 
011244 


011246 
011250 
011252 
011254 
011256 
011260 
011266 
011274 
011302 
011304 
011312 
011320 
011322 
011330 


011334 
011336 





104013 
000401 
000700 
012737 
004737 


000004 


004737 
005737 
001114 
004537 
011232 
012777 
013737 
005077 
013777 
106427 
032777 
001403 
012777 
012777 
052777 
013737 
012737 
017737 
042777 
104005 
000434 
022626 
004537 
000760 
000001 
104007 


000425 
104010 
000423 
104011 
000421 
017737 
017737 
023737 
001407 
013737 
013737 
104020 
012737 
004737 


000004 
012737 


025224 
012474 


013700 
001704 


012454 
177777 
001150 


170566 
001150 


012520 


167664 
170426 
001124 


001720 
001150 


025224 
012474 


000005 








001736 


170572 
001736 


170554 
167766 


170540 
170526 
170520 
001122 
001124 
001126 
170470 


001124 
001126 
001126 


001122 
001120 


001736 


001160 









SEQ 0034 

















ERROR+13 sRETURN HERE IF DATA ER 
BR 4s sGO RESTORE VECTOR 
BR 1$ sTRY NEXT BANK 
4$: MOV #DBUF , DBUFP sRESTORE BUFFER ADRS TO LOWEST 4K 
JSR PC ,RSTVEC sGO RESTORE VECTOR 
5 SRREERREAEEREEREERREEEREEERESAREEEARAEAERAEREAEEEE EERE EAEEEE EES 
s*TEST 32 TEST THE ADDRESS (I/0) ABILITY TO THE TTY PRINTER CSR 
5 i RERRREREREREREEAAE EASA AEAEREREAREEEAAREEREEEERERADRREAREERER EEL 
TST32: SCOPE : 
JSR PC ,KBDSRV sTEST FOR “tC” sKJLOO1 
TST LSIQ22 sTEST IF THE SYSTEM IS SUPPORTS 22-BIT 
BNE TST33 +;SKIP DMA TEST IN I/O PAGE IF SYSTEM SUPPORTS Q22 
JSR RS ,SETVEC sGO SET UP INTR RETURN 
1s sRETURN TO 1$ ON INTR 
MOV #-1,80RVWCR sSET UP WC - 1 XFER 
MOV $TPS ,OBUFP ;SET UP BUFFER ADRS TO PRINTER CSR ADRS 
CLR SORVDBR sZERO THE DBR 
MOV $TPS ,@DRVBAR sSET UP BUFFER ADRS - FROM PRINTER CSR 
MTPS PRO sALLOW INTR 
BIT @SW12, OSWR sTEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON) 
BEQ 10$ :BR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF) 


MOV #000077,@DRVBAE ;SET XAD 21,20,19,18,17,16 
10$: MOV #161,9D0RVCSR sSET IE, XAD17 & XAD16, & GO 

BIS #400, @DRVCSR sSET CYCLE 

MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

MOV #760, $GDDAT sLD EXPECTED STATUS 

MOV QDRVCSR,$BDDAT ;READ THE CSR 

BIC #100, @DRVCSR sDISABLE IE 


ERROR+5 sNO INTR ON 1 WO XFER FROM XCSR 
BR 2$ GO RESTORE VECTOR 
1$: CMP (SP)+,(SP)+ sINTR RETURNS HERE - FIX STACK SINCE NO RTI 
JSR RS,CKSTAT 3GO CK STATUS 
760 sCSR EXPECTED STATUS 
1 :# OF XFER'S 
ERROR+7 sRETURN HERE IF STATUS ER - EXPECTED CYCLE, 
sXAD17 & XAD16, RDY & IE 
BR 2$ sGO RESTORE VECTOR 
ERROR+10 sRETURN HERE IF WC ER - EXPECTED ¢@ 
BR 2$ sGO RESTORE VECTOR 
ERROR+11 sRETURN HERE IF BAR ER - SHOULD = XCSR+2 
BR es sGO RESTORE VECTOR 


MOV @$TPS, $GDDAT sRETURN HERE IF OK - GET XCSR CONTENTS 
MOV @DRVOBR,$BDDAT ;READ DBR 
CMP $GDDAT,$BDDAT  ;CORRECT? 

2$ ;BR IF SO 

MOV DRVOBR,$BDADR  ;SET UP DBR ADRS 

MOV $TPS,$GDADR sSET ADRS OF DATA C(XCSR) 

ERROR+20 sDATA ER FROM TTY PRINTER CSR 
2s: MOV #DBUF , OBUFP sRESTORE BUFFER ADRS TO LOWEST 4K 

JSR PC ,RSTVEC sGO RESTORE VECTOR 
5 PRRREAAEAAASASAEASERSASAEAEARSEAAEEESREREREREEALEELEREEEREEARAL 
s#TEST 33 TEST A 200 WORD MAINT MODE XFER WITH MMU 
§ PEER EAERAEAEAEAEASEREEAS EAA ADAESESEDREREAADAEAALE EASES EELEREE 
TST33: SCOPE 

MOV #5, $TIMES +:D0 5 ITERATIONS 
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133 


1616 
1617 
1618 
1619 





TEST A 200 WORD MAINT MODE XFER WITH MMU 


011344 
011352 
011354 
011362 
011364 
011370 
011372 
011400 
011406 
011412 
011414 
011422 
011426 
011432 
011434 
011436 
011444 
011452 
011460 
011466 
011474 
011502 
011510 
011514 
011520 
011524 
011532 
011540 
011546 
011552 
011560 
011566 
011574 
011600 
011602 
011610 
011616 
011624 
011632 
011640 
011642 
011644 
011646 
011652 
011654 
011656 


011660 
011662 
011664 
011666 
011670 
011672 
011676 
011700 
011702 


032777 
001555 
032737 
001551 
005737 
100003 
052737 
012737 
004537 
011644 
012737 
012700 
012701 
005020 
077102 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
004737 
004737 
005777 
013777 
013777 
012777 
106427 
012777 
052777 
012737 


010000 
000001 
001710 
000020 
000001 
012454 
040000 


001564 
000020 


013452 





167566 
001710 


172516 
177572 


001736 


001664 
001666 
001670 
172344 
172346 
001672 
001674 


170162 
170162 
170144 


170136 
170130 
001126 


001122 
001124 
001126 
001126 
170056 


10$: 


11$: 


1$: 


2s: 


3$; 


BIT #SW12,9SWR 
BEQ 4s 
BIT #BITO,MMAVA 
BEQ 4s 
TST MMAVA 
BPL 10$ 
BIS #BIT4, B¢SR3 
MOV #BITO, 2¢SRO 
“) RS ,SETVEC 
MOV #40000 , DBUFP 
MOV @TSTMAP,RO 
MOV #16. ,R1 
CLR CRO)+ 
SOB Ri,11$ 
MOV @MEMMAP , $MMAP 
MOV @TSTMAP , $TMAP 
MOV #B1IT1,$TTST 
MOV #400 , @#KIPAR2 
MOV #400 , OK IPARS 
MOV #40000, $TBAR 
MOV #0, $TBAE 
JSR PC ,KBDSRV 
JSR PC ,LOBUF 1 

* TST SORVWCR 
MOV $TBAR, @DRVBAR 
MOV $TBAE , BORVBAE 
MOV #-200. ,@DRVWCR 
MTPS #PRO 
MOV #10101 ,@DRVCSR 
BIS #400, @D0RVCSR 
MOV #0, $BDDAT 
INC $BDDAT 
BNE 2$ 
MOV DRVCSR , $BDADR 
MOV #10700, $GDDAT 
MOV SDRVCSR, $BDDAT 
BIC #60, $BDDAT 
BIC #100, aDRVCSR 
ERROR+5 
BR 4s 
CMP (SP)+,(SP)+ 
JSR RS ,CKSTA1 
10700 
200. 
ERROR+7 
BR 4$ 
ERROR+ 10 
BR 4s 
ERROR+11 
BR 4s 
JSR RS ,CKDAT2 
200. 
ERROR+13 
BR 4$ 
















SEQ 0035 


sTEST IF ORV11-WA IS IN Q22 MODE (S10-E40 ON) 
sBR IF ORV11-WA IS IN Q18 MODE (S10-E40 OFF) 
sMMU AVAILABLE ? 

;BR IF MMU NOT AVAILABLE 

:IS 22 ADDRESSING AVAILABLE? (BIT15 SET) 

:;BR IF NOT AVAILABLE 

sTURN ON 22 BIT ADDRESSING 

sENABLE MEMORY MANAGEMENT 

;GO SET UP INTR RETURN 

sRETURN TO 3$ ON INTR 

sPOINT TO KIPAR2 

sSET TSTMAP START ADDRESS 

sSET COUNTER = 16. 

;CLEAR TSTMAP 

;BR IF NOT END 

sSET MEMMAP ADRS TO $mmaP 

;SET TSTMAP ADRS TO $TMAP 

;SET TEST BANK BIT TO $TTST 

;SET PAR2 TO 8K + 2 

sSET PAR3 TO 12K + 2 

;SET $TBAR TO 8K + 2 

;SET $TBAE TO 8K + 2 

sTEST FOR "tC" sKJLOOL 
3GO SET UP SPECIAL COMPLEMENT PATTERN 

sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLO01 
;SET UP BUFFER ADRS 

;SET UP EXTENDED BUFFER ADDRESS 

sSET UP FOR 200 XFER’S 

sALLOW INTR 

sSET MAINT, IE .€ GO 

;SET CYCLE 

;SET UP A COUNTER 

sCOUNT AWAY 

sSHOULD ALWAYS INTR FROM THIS LOOP 

;SET UP CSR ADRS 

3;LD EXPECTED 

sREAD CSR 

s;CLEAR XAD17, XAD16 

sDISABLE IE 

sNO INTR AFTER 200 MAINT MODE XFER’S 

3GO RESTORE VECTOR 

sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 
:GO CHECK STATUS 

sEXPECTED STATUS 

3% OF XFER'S 

sRETURN HERE IF STATUS ER - EXPECTED MAINT. 
sCYCLE, READY € IE 

3GO RESTORE VECTOR 

sRETURN HERE IF WC ER - SHOULD = 0 

3GO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = DBUFP+620 
;GO RESTORE VECTOR 

sRETURN HERE IF OK - NOW GO CK DATA 
3# OF XFER‘S TO CK 
s;RETURN HERE IF DATA ER 
3GO RESTORE VECTOR 


Ce er ne ee 
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TEST A 200 WORD MAINT MODE XFER WITH MMU 


011704 
011706 
011714 
011722 
011726 
011730 
011734 
011742 
011744 
011752 
011760 
011766 
011774 
011776 
012002 
012006 
012010 
012012 
012020 
012026 
012034 
012040 


012042 
012044 
012046 
012052 
012056 
012060 
012066 
012074 
012102 
012110 
012116 
012124 
012132 
012140 
012146 
012152 
012160 
012162 
012166 


012174 
012174 
012176 
012202 
012206 
012212 


000411 
012737 
012737 
004737 
000445 
006337 
013777 
001011 
012737 
062737 
062737 
033777 
001744 
013700 
012701 
005020 
077102 
062737 
062737 
062737 
005537 
000623 


000004 
000241 
004737 
006037 
001443 
062737 
062737 
062737 
062737 
062737 
062737 
017737 
017737 
062737 
005237 
032737 
001731 
000137 
012737 


000004 
005037 
005037 
005237 
042737 


000000 
025224 
012474 


001670 
001670 


000001 
000002 
000002 
001670 


001736 
000310 


000400 
000400 
040000 
001674 


013700 
001732 


000010 
000010 
000010 
000010 
000010 
000002 
010616 
010610 
000002 
001206 
000001 


002616 
022750 


001102 
001160 
001202 
100000 


177572 
001736 


167724 


167670 


172344 
172346 
001672 


001712 
001714 
001716 
001720 
001722 
022746 
001724 
001726 
001726 


001732 


022746 


001202 





BR S$ 

4$: MOV #0 ,8@SRO 
MOV #DBUF , DBUFP 
JSR PC ,RSTVEC 
BR NXDEV 

S$: ASL $TTST 
MOV $TTST,@$TMAP 
BNE 6$ 
MOV #BITO, $TTST 
ADD #2, $MMAP 
ADD #2, $TMAP 

6$: BIT $TTST, @$MMAP 
BEQ 4$ 
MOV DBUFP,RO 
MOV #200.,R1 

7$: CLR CRO)+ 
SOB R1,7$ 
ADD #400 , BGK IPAR2 
ADD #400 , B@KIPARS 
AOD #40000, $TBAR 
ADC $TBAE 
BR is 
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sALL GOOD RETURN HERE 

sDISABLE MEMORY MANAGEMENT 
sRESTORE BUFFER ADRS TO LOWEST 4K 
sGO RESTORE VECTOR 

3GO NEXT DEVICE 

sUPDATE BANK POINTER 

sSET NEXT TEST BANK 


sIF NOT END OF THIS MEMMAP ENTRY CONTINUE 


sSET NEW BANK POINTER 
sUPDATE TO NEXT MEMMAP ENTRY 
sUPDATE TO NEXT TSTMAP ENTRY 
sIS MEMORY AVAILABLE 

sNO, BR TO END OF TE“T 

sSET BUFFER START ADDRESS 
SET COUNT = 200. 

sCLEAR MEMORY 

sBR IF NOT DONE 

sSET NEXT 8K 

sSET NEXT 8K 

sSET NEXT 8K 

sADD CARRY INTO HIGH ORDER 
TRY NEXT BANK 


§ fe SRRARARAEERAEAEEAEEEEERERAELAAEEAASKEAREAREAAAREAARAASASALRARAD EEE 


;DON'T REPORT ‘END OF PASS‘ UNTIL ALL SELECTED DRV11‘S HAVE BEEN TESTED 
j  RRRRERERERREEAEREREAEASAEREAEEEEAEAREDEDAD REEDED EE EERE EEE EERE 


NXDEV: SCOPE 
NXDEV1: CLC 
18: JSR PC ,KBDSRV 
ROR DMAP 
BEQ 2$ 
ADD #10,DRVWCR 
ADD #10,ORVBAR 
ADD #10,DRVCSR 
ADD #10,DRVDBR 
ADD #10, DRVBAE 
ADD #2, VECTOR 
MOV SVECTOR,DRVCTO 
MOV SVECTOR,ORVCT2 
ADD #2 ,0RVCT2 
INC $UNIT 
BIT #1 ,DMAP 
BEQ NXDEV1 
JMP RESTRT 
2s; MOV #WORK1, VECTOR 


-SBTTL END OF PASS ROUTINE 


sCLR CARRY 

sTEST FOR “tC” 

sLOOK FOR NEXT 

;BR IF ALL TESTED 

sOFFSET BASE BUS ADRS TO NEXT DRV11iWA 
; 

; 

: 


a 

sINCREMENT THE TABLE ADDRESS 

;SET UP NEXT VECTOR (FROM VECTOR TABLE) 
3SET UP NEXT VECTOR (FROM VECTOR TABLE) 
sMAKE THE 2ND VECTOR CORRECT 

sCOUNT DEVICE 

:IS IT SELECTED? 

;BR IF NOT 

sTEST NEXT 

sRESET VECTOR TABLE ADDRESS 

;FALL THROUGH TO END OF PASS 


WELT rorii iii rrr rir rrrirririirirrititiitittttitrti tity 
s*#INCREMENT THE PASS NUMBER ($PASS) 
s#TYPE “END PASS @XXXXX" CWHERE XXXXX IS A DECIMAL NUMBER) 


;#IF THERES A MONITOR GO TO IT 
s#IF THERE ISN'T JUMP TO START1 


sEoP . 
SCOPE 
CLR $TSTNM 
CLR $TIMES 
INC $PASS 
BIC #100000, $PASS 


3:ZERO THE TEST NUMBER 
3;ZERO THE NUMBER OF ITERATIONS 
::INCREMENT THE PASS NUMBER 
;;DON‘'T ALLOW A NEG. NUMBER 


sKJLOO1L 
sRJLOO1L 


sKJLOOL 
sRJLOOL 
sRJLOO1 
sRJLOO1 
sRJLOO1L 


;RJLOO1L 
sRJLOO1 






SEQ 0036 











-— 
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SEQ 0037 
END OF PASS ROUTINE 
012220 005327 DEC (PC)+ 3sLOOP? 
012222 000001 SEOPCT: .WORD 1 
012224 003024 BGT $DOAGN 33YES 
012226 012737 MOV CPC)+,@(PC)+ ssRESTORE COUNTER 
012230 000001 $ENDCT: .WORD 1 
012232 012222 $EOPCT 
012234 104401 012310 TYPE » $ENDMG ss TYPE “END PASS @”: 
012240 013746 001202 MOV $PASS, -CSP) 3s;SAVE $PASS FOR TYPEOUT 
012244 104405 TYPDS 33GO TYPE--DECIMAL ASCII WITH SIGN 
012246 104401 012302 TYPE » SENDLF ss TYPE A CR LF 
012252 104401 012305 TYPE » SENULL 3s TYPE A NULL CHARACTER 
012256 013700 000042 $GET42: MOV #42 ,RO 3:GET MONITOR ADDRESS 
012262 001405 BEQ $DOAGN ;sBRANCH IF NO MONITOR 
012264 000005 RESET ss;CLEAR THE WORLD 
012266 004710 SENDAD: JSR PC CRO) 33GO TO MONITOR 
012270 000240 NOP 3sSAVE ROOM 
012272 000240 NOP +3FOR 
012274 000240 NOP ‘ ssACT1I1 
012276 $DOAGN: 
012276 000137 JMP BCPC )+ ; sRETURN 
012300 002344 $RTNAD: .WORD STARTI 
012302 015 012 000 $ENDLF: .ASCIZ <15><12> 33CR LF 
012305 377 377 000 SENULL: .BYTE -1,-1,0 ssNULL CHARACTER STRING 
012310 01s 012 O11 SENDMG: .ASCIZ <15><12>/ END PASS #/ 
012313 105 116 104 
012316 040 120 101 
012321 123 123 040 
012324 043 000 
1719 PP CTCr rir irrirrrrrrrrrririritrtiitritttttitttt ttt 
1720 -SBTTL START OF PROGRAM SUBROUTINE AREA 
1721 PPC POr rior r rr ri rir rir rrrrrrrrrrrrrrrrririitiititititittti ttt, 
1722 
1723 Perri rir rrr ririirririiiiiiti iti ititt titty 
1724 -SBTTL MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 
1725 s# SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION. 
1726 ;# THE PROGRAM IS POINTED TO BY PARS O AND 1. 
1727 ;* THE MEMORY UNDER TEST IS POINTED BY PARS 2 AND 3. 
1728 ;# THE DEVICE ADDRESS AREA IS POINTED TO BY PAR 7. 
1729 :* PARS 4, 5, AND 6 ARE UNUSED. 
1730 PAPC ootTt Titi rit irri iri rrr rrr rire rriritittiiti titty) 
1731 012326 MMINIT: 
1732 012326 012737 077406 172300 MOV #200 -14400+UP+RW, BOK IPDRO sSET KIPDRO = RW UP 200 BLOCKS 
1733 012334 012737 077406 172302 MOV #200 -14400+UP+RW, @@KIPDR1 sSET KIPOR1 = RW UP 200 BLOCKS 
1734 012342 012737 077406 172304 MOV #200 -14400+UP+RW, O@KIPOR2 sSET KIPOR2 = RW UP 200 BLOCKS 
1735 012350 012737 077406 172306 MOV #200-14400+UP+RW, B@KIPDRS sSET KIPORS = RW UP 200 BLOCKS 
1736 012356 005037 172310 CLR BeKIPDR4 
1737 012362 005037 172312 CLR @eKIPDRS 
1738 012366 005037 172314 CLR BOKIPDRE 
1739 012372 012737 077406 172316 MOV #200-1%400+UP+RW, 9@KIPDOR7 sSET KIPOR7 = RW UP 200 BLOCKS 
1740 012400 005037 172340 CLR @eKIPARO sMAP PARO INTO BANKO 
1741 012404 012737 000200 172342 MOV #200 ,B@KIPAR1 sMAP PAR1 INTO BANK1 
1742 012412 005037 172344 CLR QeOKIPAR2 sMAP PAR2 INTO BANKO 
17435 012416 005037 172346 CLR BeKIPARS 
1744 012422 005037 172350 CLR BeOKIPAR4 
1745 012426 005037 172352 CLR @OKIPARS 
1746 012432 005037 172354 CLR BOKIPARG 
1747 012436 012737 177600 172356 MOV 177600, @@KIPAR7 sMAP PAR7 INTO I/0 BANK 
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MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 


1748 012444 
i. 012452 


1757 012454 
1758 012460 
1759 012464 
1760 012472 


1767 012474 
1768 012500 
1769 012506 
1770 012512 
1771 012516 


2662 
1803 012670 
1804 012674 


012737 
000207 


106427 
012577 
012777 
000205 


005077 
013777 
005077 
106427 
000207 


017737 


000001 177572 1%: MOV - 


000200 
167240 
000200 


167216 
001726 
167214 
000200 


167172 
000100 
001124 
001124 


001716 
000002 


167122 


167234 


167216 


#1, 9@SRO 
RTS PC sRETURN 


5 PPRSREEEE EEE EEE EEEE E444 06 06 04060400 00000000 000000400046 08 00008 
-SBTTL SET UP INTERRUPT RETURN ADDRESS 

sTHIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT = 

sSETS UP THE DRV11WA INTERRUPT TO RETURN ON INTERRUPT 

sTO THE ADDRESS INDICATED ((@5)) BY THE CALL +2 

EE Nacuspehptaedeshentpehthchcncntncptethbahe biti tottTt LT TTT TTT TTT ttt ty 

SETVEC: MTPS OPR4 sSET UP FOR NO INTERRUPT 
MOV CRS)+,@ORVCTO ;SET UP INTR RETURN ADRS 
MOV #200 ,@DRVCT2 sKEEP PRIORITY LEVEL AT TOP ON INTR 
RTS RS sEXIT 


EE cchacachahchsedatacateh dened id i tL Loot TTT TTT TTT TTT Tt ttt 
-SBTTL RESTORE INTERRUPT VECTOR TO HALT 

sTHIS ROUTINE CLEARS THE DRV11WA CSR - RESTORES THE DRV11WA 

sINTERRUPT VECTOR TO A HALT - RAISES PRIORITY LEVEL 

E Naducpeptasepteatnhtnnbiibe nati he biti ttt LLLP TL TTT TT TTT TT TTT ttt 


RSTVEC: CLR @ORVCSR sCLR STATUS & CONTROL 
MOV DRVCT2,@DRVCTO ;POINT VECTOR TO HALT 
CLR SORVCT2 sSET UP HALT 
MTPS OPR4 sRAISE PRIORITY LEVEL 
RTS PC sEXIT 


EE chchacacachecadacadadecpdeetdbendendn babi LL LLL Eto LLL TTT TTT TTT TTT itt ttt 
-SBTTL CHECK STATUS OF ALL DATA TRANSFERS FOR ERRORS 

sTHIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR:CORRECT STATUS, 

sCORRECT WORD COUNT & CORRECT BUFFER ADDRESS - THE EXPECTED DATA IS 

sSUPPLIED IN THE CALL +2 & +4 - THE RETURN IS TO +22 IF NO ERRORS 


sDETECTED - IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT 


jj RROSEREREE SS £606 06 000000 00000000 0046 040408 000400000000000040084 
CKSTAT: MOV GORVCSR,$BDDAT ;READ THE STATUS 


sENABLE MEMORY MANAGEMENT 





SEQ 0038 


BIC #100, 8DRVCSR sDISABLE THE IE BIT 

MOV CRS)+, $GDDAT sSET UP EXPECTED STATUS 

CMP $GDDAT,$BDDAT  ;CORRECT? 

BEQ i$ sBR IF SO 

MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

ADD #2,R5 sPOINT TO THE CSR ER 

RTS RS sEXIT HERE ON STATUS ERROR 
1s: MOV G@ORVWCR, $BDDAT ;SET WC 

BEQ 2s sBR IF ZERO 

MOV DRVWCR,$BDADR ;SET UP WCR ADRS 

CLR $GODAT sEXPECTED 0 

ADD 06 ,RS sPOINT TO THE WCR ER 

RTS RS sEXIT HERE ON WCR ER 
2s: MOV CRS), $GODAT sSET XFER ? 

ASL $GODAT sCONVERT TO WORD 

ADD DBUFP , $GDDAT sSET XFER ? 

TST SBORVWCR sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLO01 

MOV GBORVBAR, $BDDAT ;GET BAR 

BIC @8ITOO,$BDDAT  ;D0N‘T WANT BITOO 

CMP $GDDAT,$BODAT ;CORRECT? 

BEQ 3$ sBR IF SO 

MOV DRVBAR,$BDADR SET UP BAR ADRS 

ADD #12,R5 sPOINT TO BAR ER 

RTS RS sEXIT HERE ON BAR ER 















1805 012676 


18 32 
1835 013036 
1836 013044 
1837 013052 
1838 013060 
1839 013062 
1840 013070 
1841 013074 
1842 013076 
1843 013104 
1844 013112 
1845 013120 
1846 013122 
1847 013130 
1848 013132 
1849 013136 


1857 013140 
1858 013144 
1859 013150 
1860 013154 
1861 013156 





017737 


012703 


000016 


025224 
177776 
013700 


001126 
166776 


001126 
001126 


001122 


001126 
001122 


ADD 
RTS 


CKSTA1: MOV 


1%: 


23: 


5$: 
3$: 


4$: 


3@70707 WHICH SHOULD BE THE 


BIC 
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CHECK STATUS OF ALL DATA TRANSFERS FOR ERRORS 


062705 
000205 


#16,R5 
RS 


@ORVCSR, $BDDAT 


#100 ,,8DRVCSR 
CRS)+, $GDDAT 
#60, $BDDAT 


a 
DRVCSR , $BDADR 
#2,RS 

RS 
—— 
ORVWCR , $BDADR 
$GDDAT 


SORVBAR,, $BDDAT 
@B8ITOO, $BDDAT 
$GDDAT , $BDDAT 


3$ 


#12,R5 
RS 
$TBAE, $GODAT 


GORVBAE , $BDDAT 
$GDDAT , $BDDAT 


43 
DRVBAR , $BDADR 
S$ 


#16,R5 
RS 





sCORRECT? 
sBR IF SO 


sSET UP CSR ADRS 
sPOINT TO THE CSR ER 
sEXIT HERE ON STATUS ERROR 


sSET WC 
sBR IF ZERO 


sSET UP WCR ADRS 


sEXPECTED 0 


sPOINT TO THE WCR ER 
sEXIT HERE ON WCR ER 
sCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1 


sSET XFER ? 


sCONVERT TO WORD 

sGET START ADDRESS 
sGET EXPECTED ADORESS 
sADD CARRY INTO BAE 


sSET UP BAR ADRS 
sPOINT TO BAR ER 
sEXIT HERE ON BAR ER 
_ EXPECTED BAE 


sSET UP BAR ADRS 

sBR BAE ERROR EXIT 

sALL_OK - POINT TO GOOD EXIT 
sEXIT HERE IF NO ERRORS 

§ § ORO EEOEE SS 0400406046 06 060000000000000000000600000000060000008 
-SBTTL LOAD DATA BUFFER WITH FLOATING PATTERN 

sTHIS ROUTINE LOADS ‘DBUF‘ WITH A FLOATING ZERO/ONE PATTERN 

sFOR 199 LOCATIONS - THE LAST LOCATION IS LOADED WITH THE 

DATA WORD AVAILABLE IN THE DBR 


sAT THE COMPLETION OF A 200 WORD TRANSFER 


§  ORRSEEEEOSESEEEEEEEDEDEEEEEEEEEEESEEEEEEEEESESEEEEEEEDEEEEEEEES 
sSET BUFFER ADRS 

sSET UP FLOATING ZERO PATRN 
sTEST FOR “tC” 

sLOAD IT (FLOATING 0) 
sMAKE INTO FLOATING 1 


LOBUF : 
18: 
23: 


MOV 


@OBUF ,R3 
#177776,R4 
PC .KBDOSRV 
R4,CR3)> 
R4 













sALL_OK - POINT TO GOOD EXIT 
sEXIT HERE IF NO ERRORS 


jj OOOO EE EES EE OS 00404906 00000000 060000000000 000000000000000000008 
sTHIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR:CORRECT STATUS, 
sCORRECT WORD COUNT & CORRECT BUFFER ADDRESS - THE EXPECTED DATA IS 
sSUPPLIED IN THE CALL +2 & +4 - T ORS 

sDETECTED - IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT 
jp PRRRRE REESE ESE EE SS 44400000008 0406000000 000000000000000000008 

sREAD THE STATUS 

sDISABLE THE IE BIT 

sSET UP EXPECTED STATUS 

sCLEAR XAD17, XAD16 





HE RETURN IS TO +22 IF NO E 
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SEQ 0040 
LOAD DATA BUFFER WITH FLOATING PATTERN 
1862 013160 022703 026042 cmMP ODBUF +616,R3 sAT END OF BUFFER? 
1863 013164 001003 BNE 4$ ;BR IF NOT 
1864 013166 012713 070707 33; MOV 070707 ,(R3) sLOAD LAST DATVAR( SPECIAL) 
1865 013172 000207 RTS PC sSET OUT 
1866 013174 010423 4$; MOV R4,(R3)- sLOAD IT CFLOATING 1) 
1867 013176 022703 026042 CMP @OBUF +616,R3 sAT END OF BUFFER? 
1868 013202 001771 BEQ 3$ ;BR IF SO 
1869 013204 005104 COM R4 sBACK TO FLOAING ZERO 
1870 013206 006304 ASL RG sSHIFT LEFT 
1871 013210 005204 INC R4 sKEEP LSS SET 
1872 013212 103354 BCC 1$ sGO RESET FLOATING PATRN 
eth 013214 000755 BR es sGO LOAD NEXT PATRN 
i p 
1875 +E Behdeecheedeetetaehththete htt eet Ltt ti titititi titi tittit tT tT tTtt tT 
1876 sTHIS ROUTINE LOADS “DBUF” WITH A UNIQUE FLOATING ZERO/ONE PATTERN 
1877 3(177776,0,1,0,177775,0,2,0,177773,0,4,0,177767,0,10,0 Creeks 
1878 sIT IS USED WITH MAINT BIT SET (DATI/DATO SEQUENCE). 200 LOCATIONS 
1879 sARE LOADED WITH THIS PATTERN. 
1880 LE Bahehacatehchdehhhbhbdtetd htt LLL Lt Li Lititititi tit tt TTT TT TT TT ttt" 
1881 013216 013703 001736 LOBUF1: MOV DBUFP,R3 ;SET BUFFER ADRS 
1882 013222 010305 MOV R3,RS sSAVE IN RS 
1883 013224 062705 000620 ADD %620,R5 sPOINT TO END OF BUFFER 
1884 013230 012704 177776 18: MOV #177776,R4 sSET UP FLOATING ZERO PATRN 
1885 013234 004737 013700 2s: JSR PC .KBDSRV sTEST FOR “tC” sKJLOO1 
1886 013240 010423 MOV R4,(R3)- sLOAD IT (FLOATING 0) 
1687 013242 005023 CLR (R3)+ sZERO NEXT 
18688 013244 005104 COM R4 sSET UP FLOATING : 
1889 013246 010423 MOV R4,(R3)- ;LOAD IT 
1890 013250 005023 CLR (R3)- sZERO NEXT 
1891 013252 020503 CMP RS5,R3 3200 LOCS CONE? 
1892 013254 001001 BNE 3$ :BR IF NOT 
1893 013256 000207 RTS PC 3SET OUT 
1894 013260 005104 33: COM R4 sBACK TO FLOATING ZERO 
1895 013262 006304 ASL R4 sSHIFT LEFT 
1896 013264 005204 INC R4 sKEEP LSS SET 
1897 013266 103360 BCC 1$ 3GO RESET FLOATING PATRN 
1898 013270 000761 BR 2s sGO FLOAT NEXT PATRN 
1899 6 FPS OREEOAEAEKEEESASEAESESEAAASAASERARERERAAERAAASAREARALEAEALEAS 
1900 -SBTTL CHECK DATA ON ‘DATO’ TRANSFERS FOR ERRORS 
1901 sTHIS ROUTINE CHECKS 200 LOCATIONS IN "“DBUF” FOR GOOD TRANSFERED 
1902 sDATA (177577) ON ‘DATO’ TRANSFERS - IF AN ERROR IS DETECTED 
1903 ;THE RETURN IS TO CALL +2 - IF NO ERROR THE RETRUN IS TO CALL +4 
1904 5 PHSEEEEEEAEEEEEEAEEEAKEREAALEADASASEAAASAAEEAREREARAEARELE ELAS 
1905 013272 012701 025224 CKDAT: MOV eOBUF ,R1 sSET BUFFER ADRS 
1906 013276 004737 013700 18; JSR PC ,.KBDSRV sTEST FOR “tC” +KJLOO1 
1907 013302 022721 177377 CMP #177377,(R1)+ sDATA OK? 
1908 013306 001410 BEQ 2s ;BR IF SO 
1909 013310 013737 001720 001122 MOV DRVDBR , $BDADR sSET UP DBR ADRS 
1910 013316 014137 001126 MOV -(R1), $BDDAT sSET ACTUAL DATA XFERED 
1911 013322 010137 001120 MOV R1,$GDADR ;SET MEMORY ADRS 
1912 013326 000207 RTS PC sRETURN TO ERROR 
1913 013330 022701 026044 2s: CMP *DBUF +620,R1 sAT END OF ‘DBUF‘? 
1914 013334 001360 BNE i$ 3;BR IF MORE 
1915 013336 062716 000002 ADD #2,(SP) sADJUST STACK FOR GOOD RETURN 
He: 013342 000207 RTS PC sSET OUT 


1918 $5 SPREE EEEAREEEAEEKEEAAEAEAEAEAEAEEAEAARAREAKEAREAEALEERAREALELES 
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CHECK DATA ON ‘MAINT MODE’ 


1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 


Ea cerita 


013344 
013346 
013352 
023356 
013360 
023364 
013366 
013370 
013372 
013374 
013400 
013402 
013406 
013410 
013414 
013420 
013424 
013432 
013434 
013436 
013440 
013442 
013444 
013446 
013450 


013452 
013454 
013460 
013464 
013466 
013472 
013474 
013476 
013500 
013502 
013506 
013510 
013514 
013516 
013522 
013526 
013532 





012500 
013702 
012701 
005003 
004737 
020122 
001010 
020122 
001006 
162700 
003015 
062705 
000205 
014237 
010237 
010137 
013737 


001736 
177776 


013700 


000002 
000004 


001126 
001120 
001124 


001720 001122 


001736 
177776 


013700 


000002 
000004 


001126 
001120 
001124 
001720 001122 





TRANSFERS FOR ERRORS 


-SBTTL CHECK DATA ON ‘MAINT MODE’ TRANSFERS FOR ERRORS 
sTHIS ROUTINE CHECK 200 LOCATIONS IN ‘OBUF” FOR GOOD TRANSFERED 
sDATA (177776,177776,1,1,177775,177776,2,2,177773,177773,ETC) 
sON MAINT MODE TRANSFERS - THE NUMBER OF CHECKS REQUIRED IS INDICATED 
sBY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 = 
sIF NO ERROR THE RETURN IS TO CALL +10 
f PORE EAAAEAEEAEEEAEEEREEEEEEREEAEEEEEEAEEAEREEEEEEEEEEREEEAEERE 


CKDATi: MOV 
MOV 
1$: MOV 
CLR 
es: JSR 
CMP 
BNE 
CMP 


33: MOV 


4$: COM 


PELE iii iii tii itiiiitittittititittittiiiitt ttt tit tt tt. 
sTHIS ROUTINE CHECK 200 LOCATIONS IN ‘DBUF” FOR GOOD TRANSFERED 

sDATA (€177776,177776,1,1,177775,177776,2,2,177773,177773,ETC) 

3ON MAINT MODE TRANSFERS - THE NUMBER OF CHECKS REQUIRED IS INDICATED 
sBY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 = 
sIF NO ERROR THE RETURN IS TO CALL +10 

PETE Iriririiiititiirititiititittitititititititi titi ttt ttt tt tt ttt 


CKDAT2: MOV 
MOV 
1$: MOV 


2s: JSR 


3$: MOV 





CR5)+,RO 
DBUFP ,R2 
#177776,R1 


R3 

PC ,KBDSRV 
R1,(R2)+ 
3$ 


R1,(R2)+ 

3$ 

#2,R0 

4s 

#4,R5 

RS 

-CR2), $BDDAT 
R2,$GDADR 


R1,$GDDAT 
“eae ent 


CR5)+,RO 
DBUFP,R2 
#177776,R1 
R3 
PC,KBDSRV 
R1,(R2)+ 
3$ 


R1,CR2)+ 
3$ 


#4,R5 


RS 

-C(R2), $BDDAT 
R2,$GDADR 
R1,$GDDAT 
DRVDBR, $BDADR 






SEQ 0041 
















;SET @ OF CHECKS 

3SET BUFFER ADRS 

;SET UP FLOATING ZERO PATRN 
3R3 SAYS WHEN TO SHIFT PATRN 
:TEST FOR “tC” 

sDATA OK? 

;BR IF NOT 

sDATA WRITTEN OK? 

3BR IF NOT 

sACCOUNT FOR TWO ADR'S 
3;BR IF MORE 

sADJUST FOR GOOD RETURN 
s;EXIT 

;SET BAD DATA 

;GET MEM ADRS 

;LO EXPECTED DATA 

;SET UP DBR ADRS 

sRETURN TO ERROR 

sNOW EXPECT COMPLEMENT 
sTIME TO SHIFT? 

;BR IF NOT 

sSHIFT LEFT 

:KEEP LSS SET 

3GO RESET FLOATING LPATRN 
:GO NEXT 


sKJLOOL 


3SET # OF CHECKS 
;SET BUFFER ADRS 
;SET UP FLOATING ZERO PATRN 

3R3 SAYS WHEN TO SHIFT PATRN 
sTEST FOR “*tC" 

:DATA OK? 

;BR IF NOT 

;DATA WRITTEN OK? 

3BR IF NOT 

sACCOUNT FOR TWO ADR‘S 

;BR IF MORE 

sADJUST FOR GOOD RETURN 
3;EXIT 

:SET BAD DATA 

;GET MEM ADRS 

3L0 EXPECTED DATA 

;SET UP DBR ADRS 


sKJLOO1 





-. 
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CHECK DATA ON ‘MAINT MODE‘ 


1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 


013540 
013542 
013544 
013546 
013550 
013552 
013554 
013556 


013560 
013564 
013566 
013570 
013572 
013574 
013576 
013600 
013602 
013606 
013610 
013614 
013616 
013622 
013624 
013630 
013632 
013634 
013642 
013644 
013650 


013652 
013654 
013660 
013664 
013672 
013674 
013676 


000205 
005101 
005103 
001347 
006301 
005201 
103341 
000743 


104401 
104411 
012603 
105713 
001402 
005203 
000774 
114300 
122700 
001412 
122700 
001407 
122700 
001410 
122700 
001405 
000752 
012737 
000402 
005037 
000207 


005003 
106427 
010277 
052777 
005303 
001376 
000207 


025042 


000131 
000171 
000116 
000156 


000001 001704 
001704 


000000 
166032 
000400 166024 


TRANSFERS FOR ERRORS 


RTS RS sRETURN TO ERROR 
4$; COM R1 sNOW EXPECT COMPLEMENT 

CoM R3 sTIME TO SHIFT? 

BNE es sBR IF NOT 

ASL R1 sSHIFT LEFT 

INC R1 sKEEP LSS SET 

BCC 1$ :GO RESET FLOATING LPATRN 

BR 2s sGO NEXT 
FP PRRAREREAAAREEEAEREREASAAREAEEAEERRERAEAEEEAEAAARERERA EERE EK EKE 

-SBTTL ASK USER CPU TYPE sKJLOO1 
sTHIS ROUTINE ASKS THE USER IF THE SYSTEM SUPPORTS 22-BIT sKJLOO1 
s ADDRESSING sKJLOO1 


Ff ASREREEEAREREEEAAEEEAAEAAEESAAEAAEAAEAEAEAARERERARAARREAREAEREE 


ASKQ22: TYPE, Q22CPU 


ROLIN sWAIT INPUT 

MOV (SP)+,R3 sGET ADDRESS OF FIRST CHARACTER 
1$: TSTB (R3) sTEST CHARACTER IS NULL 

BEQ 10$ sYES NULL 

INC R3 sPOINT NEXT CHARACTER 

BR is sTEST NEXT CHARACTRE 
108: MOVB -(R3),RO sGET LAST CHARACTER 

CMPB #131,R0 1 ae 

BEQ 2s sYES 

CMPB #171,R0 s“y” ? 

BEQ 2s :YES 

CMPB #116,R0 s"N” ? 

BEQ 3$ :YES 

CMPB #156,RO s“n” ? 

BEQ 3$ :YES 

BR ASKQ22 TRY AGAIN 
2s: ~ oe A See sSET 22-BIT CPU FLAG 
38: CLR LSIQ22 sCLEAR 22-BIT CPU FLAG 
4$: RTS PC sRETURN 


FF PRRRORAAAAAESEAESAASSEEAEAAREDEAEEEAEREAEESAEREARE REAR EARE EE LEE 
-SBTTL_ INTERRUPT TIMER FOR BURST MODE TRANSFERS 

sTHIS ROUTINE IS TO SET UP A TIMER AND WAIT FOR INTERRUPT TO OCCUR 

sWITHIN THE TIME FRAME. THE INTERRUPT RETURN ADDRESS SHOULD HAVE BEEN 

sSET UP PRIOR TO CALLING THIS ROUTINE. IF NO INTERRUPT OCCURS BEFORE 

sTIMER RUNS OUT, THE BURST MODE TRANSFER HAS FAILED AND CONTROL IS 

sRETURNED TO LOCATION PC+2. 


§ F PSSRRAAAAEEEKEEEEEEEAASASALEAEALALERERESEAREREARERELAL SALE LELLE 


TIMER: CLR R3 sINITIALIZE R3 AS COUNTER 
MTPS @PRO sENABLE THE INTERRUPT 
MOV R2,@DRVCSR sSET BITS IN CSR 
BIS #400, QDRVCSR SET CYCLE 
18: DEC R3 sDECREMENT COUNTER 
BNE 1$ sWAIT MORE TIME 
RTS PC sRETURN TO MAIN PROGRAM (NO INTERRUPT) 


§ SPAARERAAAEREEEEAAEAAEEASEAAAEEAAAAAASAAREAALALEAEAEEEEAREEEER‘EE 
-SBTTL KEYBOARD SERVICE ROUTINE 
sTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD. 


sASK OPERATOR IF CPU SUPPORTS 22-BIT ADDRESSING 


sKJLO02 
sKJLO02 
sKJLO02 
sKJLO002 
sKJLO02 
sKJLO02 


7K JL004 
sKJLO02 
sKJLO002 
sKJLO002 
3K JL004 
sKJLO02 
sKJLO02 


+KJLOO1L 
:KJLOO1L 


SEQ 0042 








a 
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KEYBOARD SERVICE ROUTINE 


105777 
100401 
000207 
117746 
042716 
021627 
001005 
104401 
005726 
000137 
022716 
001004 
005726 
004737 
000207 
022726 
001070 
022737 
001064 
123727 
001460 
104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 
117746 
042716 
021627 
001006 
104401 
062706 
000137 
021627 
001005 
104401 
062706 
000746 
021627 
001013 
005766 
001403 
016677 
062706 
104401 
000207 
004737 
021627 
002420 


165240 


165232 
177600 
000003 
017566 
002310 
000005 
020050 
000007 
000176 
001134 
017600 
017605 
000176 


017616 


165106 


165102 
177600 
000003 


017566 
000006 
002310 
000025 


017573 
000006 


000015 
000004 
000002 
000006 
001171 


014440 
000060 


001140 
000001 


165004 


sIF THE CHARACTER TYPED IS A “CONTROL-C” (tC), EXIT IS MADE TO THE 
s"CONTROL-C” RESTART ADDRESS (CSTART). IF THE CHARACTER IS CONTROL G 


sKJLOOL 


:(*G), THE SOFTWARE SWITCH WILL BE SET UP IF IT IS ENABLED. 
PEER ERERAAAEEE RARE AE EAEAEAEEEEAEREEEEEAEEAEAAE BEER ERAS EERE EE EEE 


KBDSRV: TSTB 


KBDSR1: MOVB 


1s: cmMP 


100$: CMP 


2s: CLR 
3$: TSTB 


5$: CMP 


6$: ADD 


8sTKS 


#177600, (SP) 
(SP), #3 
1$ 


8$ 

2(SP), @SWR 
» $CRLF 

PC 

PC, $TYPEC 
(SP), #60 
13$ 


;TEST KEYBOARD STATUS 

3BR IF A KEY IS HIT 

sEXIT 

;PICK UP CHARACTER TYPED 
sSTRIP OFF THE JUNK 

:IS IT A CONTROL-C? 
;BRANCH IF NO 

sTYPE A CONTROL-©£ (tC) 
sPOP THE STACK 

sEXIT TO CSTART 

sCTRL E? 

3;BR IF NOT 

sPOP THE STACK 

;GO TO THE EXAMINE ROUTINE 
sRETURN 

;IS IT A CONTROL G? 

3;BR IF NOT 

;IS THE SOFT-SWR SELECTED? 
;BRANCH IF NO 

s;ARE WE RUNNING IN AUTO-MODE? 
sBRANCH IF YES 

sECHO THE CONTROL-G (tG) 
;TYPE CURRENT CONTENTS 
sSAVE SWREG FOR TYPEOUT 
;GO TYPE--OCTAL ASCIICALL DIGITS) 
;PROMPT FOR NEW SWR 
;CLEAR COUNTER 

;THE NEW SWR 

;CHAR THERE? 

;IF NOT TRY AGAIN 

sPICK UP CHAR 

sMAKE IT 7-BIT ASCII 

:IS IT A CONTROL-C? 
;BRANCH IF NOT 

;YES, ECHO CONTROL-C (tC) 
;CLEAN UP STACK 
sCONTROL-C RESTART 

:IS IT A CONTROL -U? 
;BRANCH IF NOT 

;YES, ECHO CONTROL-U (tU) 
sIGNORE PREVIOUS INPUT 
;LET’'S TRY IT AGAIN 

:IS IT A <CR>? 

;BRANCH IF NO 

;YES, IS IT THE FIRST CHAR? 
;BRANCH IF YES 

;SAVE NEW SWR 

;CLEAR UP STACK 

sECHO <CR> AND <LF> 
;RETURN 

sECHO CHAR 

:CHAR < 0? 

;BRANCH IF YES 


sKJLOO1 
sKJLOO1 
sKJLOO1 


;KJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKULOO1L 
sKJLOO1 
sKJLOO1 
sKJLOO1L 
sKJLOOL 
sRJLOO1L 
sRJLOOL 
sRJLOOL 
sRJLOOL 
sRJLOOL 
:KJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOOL 
sKJLOOL 
7KJLOO1 
sKJLOO1L 
sKJLOO1L 
7K JLOO1 
sKJLOO1L 
sKJLOO1 
sKJLOO1L 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOO1L 
sKJLOO1 
sKJLOO1 
sKJLOO1 
sKJLOOL 
sKJLOO1 
sKJLOO1 
sKJLOO1L 
sKJLOO1 
sKJLOO1L 
sKJLOO1 
:KJLOO1 
sKJLO01 
3K JLOO01 
#KJLOO1 
;KJLOO1 
sKJLOO1 


SEQ 0043 
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KEYBOARD SERVICE ROUTINE 


2090 014160 
2091 014164 


2102 014224 


014226 
014232 
014234 
014236 
014240 
014242 
014246 
014254 
014256 
014264 
014266 
014272 
014276 
014300 
014306 
014310 
014312 
014314 
014316 
014320 
014324 
014326 
014332 
014334 
014340 
014342 
014344 
014346 


021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000705 
104401 
000727 


105737 
100002 
000000 
000430 


000067 


000660 
000002 


000002 
177776 


001170 


001157 


000002 
000001 


000100 


014276 
014516 


000040 


000002 
000011 
000200 





001214 
001215 


001215 





sKJLOO1 
CMP (SP), #67 ;CHAR > 7? sKJLOO1 
BGT 13$ ;BRANCH IF YES sKJLOO1 
BIC #60,(SP)-+ ;STRIP-OFF ASCII sKJLOO1 
TST 2CSP) :IS THIS THE FIRST CHAR 3 JLOO1 
BEQ 12$ sBRANCH IF YES 3KJLO01 
ASL (SP) 3NO, SHIFT PRESENT ;KJLOO1 
ASL (SP) ; CHAR OVER TO MAKE sKJLOO1 
ASL (SP) ; ROOM FOR NEW ONE. sKJLOO1L 
12$: INC 2( SP) sKEEP COUNT OF CHAR sKJLOO1 
BIS -2(SP),(SP) sSET IN NEW CHAR sKJLOO1 
BR 3$ ;GET THE NEXT ONE 3KJLOO1 
13$: TYPE » $QUES sTYPE ?<CR><LF> sKJLOO1L 
BR 6$ sSIMULATE CONTROL-U sKJLOO1 


-SBTTL TYPE ROUTINE 

§ RRRRREREARAEERREAEREEEEEAEEEREEEEEEEEAREAEREEEEAAR RARE SEES EE ERS 
s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
s#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


;*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
:*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;*NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
7* 
:*CALL: 
:*1) USING A TRAP INSTRUCTION 
er TYPE »MESADR +;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
7* 
7* TYPE 
:* MESADR 
3 
$TYPE: TSTB $TPFLG 33IS THERE A TERMINAL? 
BPL 1$ 3;BR IF YES 
HALT +;HALT HERE IF NO TERMINAL 
BR 3$ 3 ;LEAVE 
1$: MOV RO,-(SP) 7;SAVE RO 
MOV @2(SP),RO 3;GET ADDRESS OF ASCIZ STRING 


CMPB ee +sRUNNING IN APT MODE 
6 


BNE 33NO,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL,$ENVM ;;SPOOL MESSAGE TO APT 
BEQ 62$ 33NO,GO CHECK FOR CONSOLE 
MOV RO,61$ 3;SETUP MESSAGE ADDRESS FOR APT 
JSR PC, $ATY3 +sSPOOL MESSAGE TO APT 
61$: -WORD 0 ;+sMESSAGE ADDRESS 
62$: BITB @APTCSUP,$ENVM ;;APT CONSOLE SUPPRESSED 
BNE 60$ 3sYES,SKIP TYPE OUT 
2s: MOVB CRO)+,-CSP) ;sPUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4s 33BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ 3sIF TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO ssRESTORE RO 


3$: ADD #2,(SP) ;sADJUST RETURN PC 
RTI ; ;RETURN F 

4$: - ae :;BRANCH IF <HT> 

' B$ 

— nes ;;BRANCH IF NOT <CRLF> 
TST (SP)+ 33;POP <CR><LF> EQUIV 
TYPE 3;TYPE A CR AND LF 
$CRLF 









TYPE ROUTINE 


2105 


014350 
014354 
014356 
014362 
014366 
014370 


014374 
014400 
014402 
024406 
014412 


014414 
014420 
014424 
014432 
014434 
014436 
014440 
014444 
014446 
014454 
014462 
014464 
014470 
014472 
014500 
014502 
014504 
014506 


014510 
014516 
014524 
014526 
014534 
014534 
014536 
014540 
014544 
014546 
014554 
014556 
014564 
014566 
014572 
014600 
014604 
014606 
014612 
014614 
014616 
014622 
014624 
014630 





112716 
004737 
132737 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 


112737 


112737 


010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
601376 
163700 
006200 
010037 
012737 


014504 


014440 
001156 


001154 
000001 
014440 
014504 


000040 
014440 
000007 


164504 


000002 
000015 


014504 
000012 


000001 
000001 


000001 


014752 
000001 
000100 
000904 
000002 
001174 


001210 


001210 


001212 
000004 





014504 


164476 
000002 


000002 


014754 
014752 


014754 


001214 
001215 


000004 


001174 





a 
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a oat 
S$: JSR PC, $TYPEC 
6$: CMPB sFILLC, (SP )+ 

BNE 2$ 

MOV $NULL, -CSP) 
7$: DECB 1(SP) 

BLT 6$ 

JSR PC, $TYPEC 

DECB $CHARCNT 

BR 7$ 
sHORIZONTAL TAB PROCESSOR 
83: MOVB #' ,CSP) 
9$: JSR PC, $TYPEC 

BITB #7, $CHARCNT 

BNE 9$ 

TST (SP)-+ 

BR 2s 
STYPEC: TSTB OsTPS 

BPL $TYPEC 

MOVB 2(SP), a$ TPB 

CMPB #CR,2(SP) 

BNE 1$ 

CLRB $CHARCNT 

BR $TYPEX 
1$: CMPB #LF,2CSP) 

BEQ $TYPEX 

INCB (PC)+ 
$CHARCNT:.WORD 0 
$TYPEX: RTS P 


+;CLEAR CHARACTER COUNT 
+:;GET NEXT CHARACTER 
3;GO TYPE THIS CHARACTER 

. #3I1S IT TIME FOR FILLER CHARS. ? 
3:IF NO GO GET NEXT CHAR. 
3;GET @ OF FILLER CHARS. NEEDED 
3;AND THE NULL CHAR. 
3;D0ES A NULL NEED TO BE TYPED? 
33BR IF NO--GO POP THE NULL OFF OF STACK 
+360 TYPE A NULL 
3:D0 NOT COUNT AS A COUNT 
;;LOOP 


;;REPLACE TAB WITH SPACE 
:3TYPE A SPACE 

;:BRANCH IF NOT AT 

3;TAB STOP 

33POP SPACE OFF STACK 

3;GET NEXT CHARACTER 

;s;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3;IS CHARACTER A CARRIAGE RETURN? 
;s;BRANCH IF NO 

oe CHARACTER COUNT 


$8 
3;IS CHARACTER A LINE FEED? 
;;BRANCH IF YES 

3;COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 


Cc 
-SBTTL APT COMMUNICATIONS ROUTINE 
5 § RRREEREEEEERARAEAEEERS EE EARAAEEAAAASEAEREEEEREEAEE EARS AL EREREES 


$ATY1: 
$ATY3: 


$ATY4: 
$ATYC: 


1$: 


2s: 


MOVB 
MOVB 


#1,$FFLG 
#1, $MFLG 
$ATYC 

#1, $FFLG 


RO,-CSP) 
Ri,-CSP) 
$MFLG 

5$ 

@APTENV, $ENV 
3$ 


33TO REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


33TO ONLY REPORT FATAL ERROR 


+sPUSH RO ON STACK 
3;PUSH R1 ON STACK . 
+sSHOULD TYPE A MESSAGE? 
3sIF NOT: BR 
; OPERATING UNDER APT? 
ssIF NOT: BR 


a reeL.. Se ; s SHOULD = MESSAGES? 


84(SP),RO 
#2 ,4(SP) 
$MSGTYPE 
1$ 

RO, $MSGAD 
CRO)+ 

2$ 

$MSGAD ,RO 
RO 


RO, $MSGLGT 
#4, $MSGTYPE 


331F NOT: 
+;GET MESSAGE ADOR. 
;;BUMP RETURN ADDR. 
+;SEE IF DONE W/ LAST XMISSION? 
+:IF NOT: WAIT 
3:PUT ADOR IN MAILBOX 
3sFIND END OF MESSAGE a. 


3sSUB START OF MESSAGE 
+sGET MESSAGE 'NGTH IN WORDS 
;sPUT LENGTH IN MAILBOX 
3sTELL APT TO TAKE MSG. 





SEQ 0045 





a 
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SEQ 0046 
APT COMMUNICATIONS ROUTINE 
014636 000413 BR 5$ 
014640 017637 000004 014664 33: MOV 84(SP),4$ +sPUT MSG ADDR IN JSR LINKAGE 
014646 062766 000002 000004 ADD #2 ,4(SP) ;s;BUMP RETURN ADDRESS 
014654 013746 177776 MOV 177776,-(SP) 3sPUSH 177776 ON STACK 
014660 004737 014226 JSR PC, $TYPE +sCALL TYPE MACRO 
014664 000000 4$: -WORD 0 
014666 S$: 
014666 105737 014754 108: TSTB $FFLG +sSHOULD REPORT FATAL ERROR? 
014672 001416 BEQ 12$ ssIF NOT: BR ; 
014674 005737 001214 TST SENV ssRUNNING UNDER APT? 
014700 001413 BEQ 12$ 3sIF NOT: BR 
014702 005737 001174 11$: TST sMSGTYPE ssFINISHED LAST MESSAGE? 
024706 001375 BNE 11$ ssIF NOT: WAIT 
014710 017637 000004 001176 MOV @4(SP),$FATAL ;;GET ERROR @ 
014716 062766 000002 000004 ADD #2 ,4(SP) ;;BUMP RETURN ADDR. 
014724 005237 001174 INC $MSGTYPE ssTELL APT TO TAKE ERROR 
014730 105037 014754 12$: CLRB $FFLG +sCLEAR FATAL FLAG 
014734 105037 014753 CLRB $LFLG ;sCLEAR LOG FLAG 
014740 105037 014752 CLRB $MFLG +sCLEAR MESSAGE FLAG 
014744 012601 MOV (SP)+,R1 3sPOP STACK INTO R1 
014746 012600 MOV (SP)+,RO 3sPOP STACK INTO RO ~ 
014750 000207 RTS PC + sRETURN 
014752 000 SMFLG: .BYTE 0 ;sMESSG. FLAG 
014753 000 SLFLG: .BYTE 0 33LOG FLAG 
014754 000 $FFLG: y ah 0 ssFATAL FLAG 
-EV. 

000200 APTSIZE=200 

000001 APTENV=001 

000100 APTSPOOL =100 

000040 APTCSUP=040 

2106 -SBTTL BINARY TO OCTAL CASCII) AND TYPE 


5 fj RRRRREREEEEAEEAEEEEAEEEARAEAAEREARAEEREARAEAEAREAL AERA RE RARA REL 

:#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

+#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 

3* MOV NUM, -C SP) ;;NUMBER TO BE TYPED 

34 TYPOS +:CALL FOR TYPEOUT 

3* -BYTE oN +:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -BYTE M 7:M=1 OR O 

3% 331=TYPE LEADING ZEROS 

i* 3;0=SUPPRESS LEADING ZEROS 

7* 


;*#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR $TYPOC 


;*CALL: 

:* MOV NUM, -( SP) ;sNUMBER TO BE TYPED 

3* TYPON ;;CALL FOR TYPEOUT 

3* 

o> + taste HERE FOR TYPEOQUT OF A 16 BIT NUMBER 

:*CALL: 

3* MOV NUM, -C SP) ;s;NUMBER TO BE TYPED 

:* TYPOC 3:CALL FOR TYPEOUT 
014756 017646 000000 $TYPOS: MOV aC SP), -CSP) 3sPICKUP THE MODE 
014762 116637 000001 015201 MOVB 1(0SP), $OFILL 3;LOAD ZERO FILL SWITCH 
014770 112637 015203 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
014774 062716 000002 ADD #2,(SP) +;ADJUST RETURN ADDRESS 
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015000 
015002 
015010 
015016 
015024 
015026 
015030 
015032 


2107 


000406 
112737 


000001 015201 
000006 015203 
000005 015200 


015203 


000006 
015202 
015201 
000012 


015202 
177770 


000060 
000040 
015176 
015176 
015200 


000002 000004 


$TYPOC: MOVB 
MO 
$TYPON: MOVB 


1$: ROL 
2s: ROL 


3$: ROL 


4$: INC 
5$: BIS 


7$: DECB 


6$: MOV 


$OMODE: .WORD 


$TYPON 
#1,$OF ILL 
#6, $SOMODE+1 
#5, $OCNT 
R3, -(SP) 
R4,-C(SP) 
RS,-(SP) 
$OMODE +1,R4 
R4 


#6 ,R4 

R4, $OMODE 
SOFILL ,.R4 
12(SP),R5 


R3 
$OMODE 
7$ 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
2(SP),4(SP) 
(SP)+,(SP) 


7;SET THE ZERO FILL SWITCH 

3:SET FOR SIX(6) DIGITS 

+:SET THE ITERATION COUNT 

::SAVE R3 

7sSAVE R4 

3:;SAVE RS 

;;GET THE NUMBER OF DIGITS TO TYPE 


ssSUBTRACT IT FOR MAX. ALLOWED 
3sSAVE IT FOR USE 

+s;GET THE ZERO FILL SWITCH 
+sPICKUP THE INPUT NUMBER 
3s;CLEAR THE OUTPUT WORD 
;sROTATE MSB INTO "C” 

33GO DO MSB 

+sFORM THIS DIGIT 


;:GET LSB OF THIS DIGIT 
:;TYPE THIS DIGIT? 

:;BR IF NO 

3;GET RID OF JUNK 

33;TEST FOR O 

;;SUPPRESS THIS 0? 

;;BR IF YES 

;:;DON’T SUPPRESS ANYMORE 0'S 
+sMAKE THIS DIGIT ASCII 
ssMAKE ASCII IF NOT ALREADY 
:sSAVE FOR TYPING 

3:GO TYPE THIS DIGIT 

+;COUNT BY 1 

::;BR IF MORE TO DO 

:;BR IF DONE 

3;INSURE LAST DIGIT ISN'T A BLANK 
+:GO DO THE LAST DIGIT 
+:RESTORE RS 

:sRESTORE R4 

;sRESTORE R3 

33;SET THE STACK FOR RETURNING 


; RETURN 

s+sSTORAGE FOR ASCII DIGIT 
3sTERMINATOR FOR TYPE ROUTINE 
+s;OCTAL DIGIT COUNTER 

+3ZERO FILL SWITCH 

ssNUMBER OF DIGITS TO TYPE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

§ SPRRAAREEAEEAEAAEEAEREAAEEERESAREEAEEEEREAREAASEAREREEERAREEAEEE 
s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*#REPLACED WITH SPACES. 


3*CALL: 
3* MOV 


NUM, -C SP) 





3sPUT THE BINARY NUMBER ON THE STACK 


SEQ 0047 
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015204 010046 


2108 


ee ee eae 


020200 
000020 
000055 000001 


015420 
000040 


015410 


000001 177777 
000060 
000040 


000010 


177777 =177776 


015420 
000002 000004 


7* TYPDS 
$TYPDS: 
MOV RO, -(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-CSP) 
MOV RS,-(SP) 
MOV #20200, -(SP) 
MOV 20(SP),R5 
BPL i$ 
NEG R5 
MOVB #' -,10SP) 
1$: CLR RO 
MOV #$DBLK ,R3 
MOVB #' ,CR3)+ 
2s: CLR R2 
MOV $DTBLCRO),R1 
3$: SUB R1,R5 
BLT 4$ 
INC R2 
BR 3$ 
4$: ADD R1,R5 
TST R2 
BNE 5$ 
TSTB (SP) 
BMI $ 
5$: ASLB (SP) 
BCC 6$ 
MOVB 1(SP), -1(R3) 
6$: BIS #'0,R2 
7$: BIS # =,R2 
MOVB R2,CR3)+ 
TST C(RO)+ 
CMP RO,#10 
BLT 2s 
BGT 8$ 
MOV R5,R2 
BR 6$ 
8$: TSTB CSP )+ 
BPL 9$ 
MOVB -1(SP),-2CR3) 
9$: CLRB (R3) 
MOV (SP)+,R5 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
TYPE , $DBLK 
MOV (SP), 4(SP) 
MOV (SP)+, (SP) 
RTI 
$DTBL: 10009. 
1000. 
100. 
10 


$DBLK: .BLKW 4 
.SBTTL ERROR HANDLER ROUTINE 


Page 10-38 


33GO TO THE ROUTINE 


+sPUSH RO ON STACK 
;sPUSH R1 ON STACK 
3sPUSH R2 ON STACK 
3sPUSH R3 ON STACK 
3sPUSH RS ON STACK 
3;SET BLANK SWITCH AND SIGN 
:33;GET THE INPUT NUMBER 
33BR IF INPUT IS POS. 
;sMAKE THE BINARY NUMBER POS. 
s+sMAKE THE ASCII NUMBER NEG. 
3sZERO THE CONSTANTS INDEX 
3sSETUP THE OUTPUT POINTER 


+3SET THE FIRST CHARACTER TO A BLANK 


;s;CLEAR THE BCD NUMBER 

+;GET THE CONSTANT 

3sFORM THIS BCD DIGIT 

33BR IF DONE 

ss INCREASE THE BCD DIGIT BY 1 


+sADD BACK THE CONSTANT 
+sCHECK IF BCD DIGIT=0 
33FALL THROUGH IF 0 
ssSTILL DOING LEADING 0'S? 
33BR IF YES 


3sYES--SET THE SIGN 
;sMAKE THE BCD DIGIT ASCII 


;sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
3sPUT THIS CHARACTER IN THE OUTPUT BUFFER 


3:JUST INCREMENTING 
3;CHECK THE TABLE INDEX 
::GO DO THE NEXT DIGIT 
3:;GO TO EXIT 

;;GET THE LSD 

+:GO CHANGE TO ASCII 


33WAS a THE FIRST NON-ZERO? 


;;BR IF 
+:YES--SET THE SIGN FOR TYPING 
:;SET THE TERMINATOR 
+3POP STACK INTO R5 
3:POP STACK INTO R3 
3;POP STACK INTO R2 
33;POP STACK INTO Ri 
;;POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
3sADJUST THE STACK 


+sRETURN TO USER 





SEQ 0048 





C-ZORVB-O0 DRV11-WA DMA INTERFAC MACRO YOS.02 Monday 08-Apr-85 16:01 Page 10-39 





ERROR HANDLER ROUTINE 


-— 


2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 


015430 
015430 
015432 
015434 
015440 
015442 
015450 
015456 
015460 
015464 
015470 
015474 
015502 
015510 
015516 
015520 
015524 
015530 
015530 
015536 
015540 
015546 
015552 
015553 
015554 
015556 
015562 
015564 
015566 
015570 
015576 
015600 
015604 
015610 
015612 
015616 
015616 


015620 
015626 
015632 
015634 


104407 
104407 
105237 
001775 
013777 
032777 
001402 
104401 
005237 
011637 
162737 
117737 
032777 
001004 
004737 
104401 


122737 


001402 
013716 


000002 


113737 
004737 
104407 
000207 


001103 


001102 
002000 
001164 
001112 
001116 
000002 
163410 
020000 


015620 
001171 


000001 


001114 
014526 


163356 


001000 


001110 
001162 


001162 


001102 
015636 








163472 
163462 


001116 
001114 
163422 


001214 
015552 


163342 


061730 






SEQ 0049 


















§  RRRREAEREEEEAEAEEREREREEAESEEAREAEEREEEEAE AREA EAEEEREEEE ARES EES 
s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
s#AND GO TO $WRCK ON ERROR 

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


:#SW15=1 HALT ON ERROR 

3#SW13=1 INHIBIT ERROR TYPEOUTS 

3*SW10=1 BELL ON ERROR 

3*SWO9=1 LOOP ON ERROR 

7*CALL 

se anen ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

$ 3 
caus :;TEST FOR CHANGE IN SOFT-SWR 

7$: INCB $ERFLG +;SET THE ERROR FLAG 
BEQ 7$ ;;DON'’T LET THE FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #BIT10,9SWR ;;BELL ON ERROR? 
BEQ i$ :3:NO - SKIP 
TYPE » $BELL ::;RING BELL 

1$: INC SERTTL - ;;COUNT THE NUMBER OF ERRORS 
MOV (SP), $ERRPC +:;GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, $ERRPC 
MOVB OSERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #BIT13,9SWR 3:SKIP TYPEOUT IF SET 
BNE 20$ ::SKIP TYPEOUTS 
JSR PC, $WRCK 3:GO TO USER ERROR ROUTINE 

- TYPE » $CRLF 

$: 

CMPB #APTENV, SENV ;s;RUNNING IN APT MODE 
BNE 2$ 3:NO,SKIP APT ERROR REPORT 
MOVB $ITEMB,21$ 3;SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, $ATY4 ;;REPORT FATAL ERROR TO APT 

21s: -BYTE 0O 
-BYTE 0 

22%: BR 22$ ;;APT ERROR LOOP 

2s: TST aSwR +sHALT ON ERROR 
BPL 3$ 3;SKIP IF CONTINUE 
HALT ;:HALT ON ERROR! 
CKSWR 3;TEST FOR CHANGE IN SOFT-SWR 

3$: BIT #BITO9,ASWR ;;LOOP ON ERROR SWITCH SET? 
BEQ 4$ ;;BR IF NO 
MOV $LPERR, (SP) ;sFUDGE RETURN FOR LOOPING 

4$: TST SESCAPE 3;CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ 33;BR IF NONE 

- MOV SESCAPE, (SP) 3sFUDGE RETURN ADDRESS FOR ESCAPE 
RTI 3 sRETURN 


RASA ASEAEEAEARASEEARAS SARE SAASEAESALESAASALE DEAE EAEE DEES AEEEEEE 
;GO TYPE ERROR 

GO UPDATE SOFTWARE SWR IF ‘CNTRL/S' 

ECPI r irri rir iii rrr rrr rrirritiritiittitititttitttttt iit. 
$WRCK: MOVB $TSTNM,TSTNUM ;SET UP TEST # ON ER 


JSR PC, $ERRTYP 3GO TYPE ERROR 
CKSWR sGO LOOK FOR SWR CHANGE 
RTS PC sRETURN TO ERROR HANDLER 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
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SEQ 0050 


PETTITT irri rir rrr rirririiirtitt ti titi itty) 

s#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
s*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ( SERRTB), 
s*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


015636 SERRTYP: 
015636 104401 001171 TYPE » $CRLF ss "CARRIAGE RETURN” & “LINE FEED” 
015642 010046 MOV RO, -(SP) 3sSAVE RO 
015644 005000 CLR RO +sPICKUP THE ITEM INDEX 
015646 153700 001114 BISB @¢$ITEMB,RO 
015652 001004 BNE 1$ ssIF ITEM NUMBER IS ZERO, JUST 
ssTYPE THE PC OF THE ERROR 
015654 013746 001116 MOV SERRPC, -(SP) ssSAVE $ERRPC FOR TYPEOUT 
+sERROR ADDRESS 
015660 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
015662 000426 BR 6$ +sGET OUT 
015664 005300 1$: DEC RO ssADJUST THE INDEX SO THAT IT WILL 
015666 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
015670 006300 ASL RO 
015672 006300 ASL RO 
015674 062700 001320 ADD #$ERRTB,RO 3sFORM TABLE POINTER 
015700 012037 015710 MOV (RO)+,28 ssPICKUP “ERROR MESSAGE” POINTER 
015704 001404 BEQ 3$ +sSKIP TYPEOQUT IF NO POINTER 
015706 104401 TYPE +sTYPE THE “ERROR MESSAGE” 
015710 000000 2s: -WORD 0 ss “ERROR MESSAGE” POINTER GOES HERE 
015712 104401 001171 TYPE . $CRLF ss "CARRIAGE RETURN” & “LINE FEED” 
015716 012037 015726 3$; MOV (RO)+,48 ssPICKUP “DATA HEADER” POINTER 
015722 001404 BEQ 5$ 3sSKIP TYPEOUT IF 0 
015724 104401 TYPE ssTYPE THE “DATA HEADER” 
015726 000000 4$: -WORD 0 3s“DATA HEADER” POINTER GOES HERE 
015730 104401 001171 TYPE . $CRLF 33 “CARRIAGE RETURN” & “LINE FEED” 
015734 011000 5$: MOV (RO),RO ssPICKUP “DATA TABLE” POINTER 
015736 001004 BNE 7$ 33GO TYPE THE DATA 
015740 012600 6$: MOV (SP)+,RO ssRESTORE RO 
015742 104401 001171 TYPE » $CRLF ss "CARRIAGE RETURN” & “LINE FEED” 
015746 000207 RTS PC + RETURN 
015750 7$: 
015750 013046 MOV @CRO)+,-CSP) ssSAVE @CRO)+ FOR TYPEOUT 
015752 104402 TYPOC ::GO TYPE--OCTAL ASCIICALL DIGITS) 
015754 005710 TST CRO) ssIS THERE ANOTHER NUMBER? 
015756 001770 BEQ 6$ 33BR IF NO 
015760 104401 015766 TYPE .8$ ss TYPE TWOC2) SPACES 
015764 000771 BR 7$ sal 
015766 040 040 000 8%: my 44 ssTWOC2) SPACES 
2118 § 5 PORE EEERESEEEEEEES ES O44646066006 0046 6606006600060660064006 40088 
2119 s# THIS ROUTINE WILL TYPE OUT A MAP OF MEMORY BANKS. 
2120 3# UPON ENTERING THIS ROUTINE RO WILL CONTAIN THE ADDRESS 
2121 s# OF THE TABLE TO BE TYPED OUT. THE ROUTINE REQUIRES THAT THE 
2122 ;# TABLE CONTAIN 16 DECIMAL WORDS. 
2123 i* STORAGE USED: 
2124 3:4 RO = MAP TABLE ADDRESS 
2125 3 Ri = BANK POINTER 
2126 i* R2 = CONSECUTIVE ZERO BANK FLAG 
2127 3 R3 * HIGH MEMORY ADR ... LO 16 BITS 
2128 i* R4 = HIGH MEMORY ADR ... HI 6 BITS 
2129 i LMEMLO = LOW MEMORY ADR ... LO 16 BITS 
2130 34 LMEMHI = LOW MEMORY ADR ... HI 6 BITS 


-— 





2135 015772 
2136 015776 
2137 016004 
2138 016010 
2139 016012 
2140 016014 


016212 
2181 016216 





001002 





177777 
000001 
000001 


040000 


177777 
001710 


001676 
010000 
000003 


000077 
020000 


016420 


016422 
024675 


016426 


BNKT AB 
ENDBKT 
FLG30K 
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= ADDRESS OF TABLE TO BE PROCESSED 


= LAST ADDRESS + 2 OF TABLE TO BE PROCESSED 
= 30K MEMORY FLAG 


$5 8064446460046 6664666004666 66 6046400046660 046 06466046646 4604646 0606646460464 404488 


TYPMAP: MOV 


1$: TST 


2s: MOV 


3$: MOV 
4$; BIT 


R 

0177777 ,R3 
9$ 

MMAVA 


#20000 ,R3 


R3,-C(SP) 

R4, -(SP) 
LMEMLO, -(SP) 
LMEMHI, -(SP) 
FROM 


sSAVE ADDRESS OF TABLE 

sLOAD END BANK WITH 40 

sGET LAST ADR + 2 INTO ENDBKT 

sANY MEMORY IN THIS TABLE ENTRY 

s THEN GO PRINT OUT LOCATIONS 
s__ELSE POINT TO NEXT TABLE ENTRY 
sIF NOT END OF TABLE 

s THEN TRY AGAIN 

:GO PRINT OUT THE FOLLOWING MESSAGE. 
:'NO MEMORY FOUND‘ 


sEXIT 

sRESTORE MAP TABLE ADDRESS 
3;PUSH R1 ON STACK 
3sPUSH R2 ON STACK 
3sPUSH R3 ON STACK 
33PUSH R4 ON STACK 

sINIT LOW MEM ADR ... LO 16 BITS 

sINIT LOW MEM ADR ... HI 6 BITS 

sINIT LAST BANK IN MAP FLAG 

sINIT HIGH MEM ADR ... LO 16 BITS 

sINIT HIGH MEM ADR ... HI 6 BITS 

sINIT CONSECUTIVE ZERO BANK FLAG 

sINIT BANK POINTER 

sIF THIS 8K BANK IS NOT PRESENT 

: THEN GO PRINTOUT MAP 


s ELSE UPDATE HIGH MEM TO TOP OF THIS BANK 


2 

sCLEAR CONSECUTIVE ZERO BANK FLAG 
sGO CHECK FOR NEXT BANK 

sIF CONSECUTIVE ZERO BANK 

s THEN DO NOT PRINT MESSAGE 


s ELSE UPDATE CONSECUTIVE aoe A BANK FLAG 


sIF NOT 32K, 128K OR 2M BOUNDARY 
s THEN GO PRINT MESSAGE 
ELSE IF 22-BIT ADDRESSING 


THEN GO WORK ON 22-BIT ADDRESSING 


; 

j 

: OR GO WORK ON 18 BIT ADDRESSING 
j ELSE IF NOT 30K SYSTEM 

; THEN GO ADJ TO 28K BOUNDARY 

; ELSE ADJ TO 30K BOUNDARY 

sAND GO PRINT 

sIF NOT 128K BOUNDARY 

s THEN GO PRINT 

s ELSE GO ADJ 2 _— BOUNDARY 


PRI INT 
SADJ HIGH MEMORY TO BELOW I/0 PAGE 


3sPUSH R3 ON STACK 
33PUSH R4 ON STACK 
33PUSH LMEMLO ON STACK 
33PUSH LMEMHI ON STACK 
:GO0 PRINT OUT THE FOLLOWING MESSAGE. 


SEQ 0051 





2190 016254 


2191 016264 
2192 016270 


2193 016276 


20 
2202 016352 
2203 
2204 016356 
2205 016360 
2206 016362 
2207 016364 
2208 016370 
2209 016372 
2210 016376 
2211 016400 
2212 016404 
2213 016406 


016414 
2215 016416 
2216 


ERROR MESSAGE TYPEOUT ROUTINE 


2182 

2183 016222 
2184 016224 
2185 016226 
2186 016230 


016420 


024705 


016426 
177776 
001700 


016420 


10$: 


118: 
12%: 


148: 


138: 
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R3 

R4 

R3 

LMEMLO 
LMEMHI 
LMEMLO 
LMEMHI , -( SP) 
3 

0 

LMEMLO, -(SP) 
} 

1 


.10 
R4,-C(CSP) 


3 
0 
R3,-CSP) 


1 

(SP)+, LMEMHI 
(SP)+,LMEMLO 
(SP)+,R4 
(SP)+,R3 
TEMP 


(SP)-,R1 
PC 


Page 10-42 











‘FROM’ 

sSHIFT BIT 15 INTO CARRY 
sSHIFT BIT 15 TO ALIGN WITH BITS 17-16 
sRESTORE BITS 14-0 

sSHIFT BIT 15 INTO CARRY 
sSHIFT BIT 15 TO ALIGN WITH BITS 17-16 
sRESTORE BITS 14-0 

33;SAVE LMEMHI FOR TYPEOUT 

3s TYPE ADDRESS BITS 21-15 
33GO TYPE--OCTAL ASCII 
ssTYPE 3 DIGITCS) 

3sSUPPRESS LEADING ZEROS 
3sSAVE LMEMLO FOR TYPEOUT 
3sTYPE ADDRESS BITS 14-0 
33GO TYPE--OCTAL ASCII 
3sTYPE S DIGITCS) 

33 TYPE LEADING ZEROS 

sTYPE “TO” 

33SAVE R4& FOR TYPEOUT 

3s TYPE ADDRESS BITS 21-15 
33GO TYPE--OCTAL ASCII 

ss TYPE 3 DIGITCS) 

:sSUPPRESS LEADING ZEROS 
3sSAVE R3 FOR TYPEOUT 

3sTYPE ADDRESS BITS 14-0 
33GO TYPE--OCTAL ASCII 
ssTYPE S DIGITCS) 

3sTYPE LEADING ZEROS 

3sPOP STACK INTO LMEMHI 
3sPOP STACK INTO LMEMLO 
33POP STACK INTO R4 

33sPOP STACK INTO R3 

sHAS LAST BIT IN MAP PRINTED? 
sYES,EXIT TO STACK CLEANUP 
sUPGRADE TO TOP OF THIS BANK 


5 
sUPDATE LMEM TO THIS BANK 


* 
sGET TO NEW LOW ADDRESS OF NEXT BANK 
5 


sPOINT TO NEXT 8K BANK 


sBRANCH IF MORE TO TEST IN THIS MAP ENTRY 


sUPDATE POINTER TO NEXT TABLE ENTRY 


sCHECK IF LAST BANK AVAILABLE 
sIF ZERO, TYPMAP PRINT COMPLETED 
sELSE SET LAST BANK PRINT FLAG 
sPRINT FOR LAST BANK 


ssPOP STACK INTO R4 
3sPOP STACK INTO R3 
ssPOP STACK INTO R2 
3sPOP STACK INTO Ri 
sRETURN TO CALLER 




























A AS A RR SA SS SE 
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ERROR MESSAGE TYPEQUT ROUTINE 






SEQ 0053 








£217 016420 000000 LMEMLO: .WORD 0 3; LOW MEMORY ADR ... LO 16 BITS 
2218 016422 000000 LMEMHI: .WORD 0 ; LOW MEMORY ADR ... HI 6 BITS 
2219 016424 000000 BNKTAB: .WORD 0 ; ADDRESS OF TABLE TO BE PROCESSED 
aoee 016426 000000 ENDBKT: .WORD 0 3; LAST ADDRESS + 2 OF TABLE 
2222 -NLIST BEX 
2223 
2224 -SBTTL SCOPE HANDLER ROUTINE 
FY § SPAEREAEEAEEEESEEEAE SA HEEAEAEEEAEEARARAAAEAAEEEREAEAERAREREEERE 
s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
s#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
s#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
3*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3#SW14=1 LOOP ON TEST 
3#SW1l=1 INHIBIT ITERATIONS 
3#SW09=1 LOOP ON ERROR 
3*SWO08=1 LOOP ON TEST IN SWR<7:0> 
7#CALL 
34 SCOPE 3:;SCOPE=IOT 
016430 $SCOPE: 
016430 104407 CKSWR 3;TEST FOR CHANGE IN SOFT-SWR 
016432 032777 040000 162500 i$: BIT #81T14,9SWR 3;LOOP ON PRESENT TEST? 
016440 001114 BNE SOVER 33;YES IF SwWi4=1 
s?¢4¢@START OF CODE FOR THE XOR TESTER@eeee 
016442 000416 $XTSTR: BR 6$ 33IF RUNNING ON THE “XOR” TESTER CHANGE 
3;THIS INSTRUCTION TQ A “NOP” (NOP=240) 
016444 013746 000004 MOV @PERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
016450 012737 016470 000004 MOV #5$, 9@ERRVEC ::SET FOR TIMEOUT 
016456 005737 177060 TST 84177060 3sTIME OUT ON XOR? 
016462 012637 000004 MOV (SP)+,@@ERRVEC ;;RESTORE THE ERROR VECTOR 
016466 000463 BR $SVLAD 3;GO TO THE NEXT TEST 
016470 022626 S$: CMP (SP)+,(SP)-+ 3;CLEAR THE STACK AFTER A TIME OUT 
016472 012637 000004 MOV (SP)+,@¢ERRVEC ;;RESTORE THE ERROR VECTOR 
016476 000423 BR 7$ ::LOOP ON THE PRESENT TEST 
016500 6$:;8#e¢¢END OF CODE FOR THE XOR TESTERSee4 
016500 032777 000400 162432 BIT #BITO8,3SWR 3;LOOP ON SPEC. TEST? 
016506 001404 BEQ 23 ;:BR IF NO 
016510 127737 162424 001102 CMPB OSWR,$TSTNM 33;0N THE RIGHT TEST? SWR<7:0> 
016516 001465 BEQ SOVER 3;BR IF YES 
016520 105737 001103 2s: TSTB SERFLG 3s;HAS AN ERROR OCCURRED? 
016524 001421 BEQ 3$ ;;BR IF NO 
016526 123737 001115 001103 CMPB SERMAX, SERFLG 3s3MAX. ERRORS FOR THIS TEST OCCURRED? 
016534 101015 BHI 3$ ::BR IF NO 
9016536 032777 001000 162374 BIT #BITO9,3SWR ;;LOOP ON ERROR? 
015544 001404 BEQ 4$ 83 IF NO 
016546 013737 001110 001106 73: MOV $LPERR,$LPADR 3;SET LOOP ADDRESS TO LAST SCOPE 
016554 000446 BR SOVER ¥ 
016556 105037 001103 4$: CLRB SERFLG +:ZERO THE ERROR FLAG 
016562 005037 001160 CLR $TIMES 3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
015566 000415 BR 1$ ;;ESCAPE TO THE NEXT TEST 
016570 032777 004000 162342 33: BIT #BIT11,9SWR ;;INHIBIT ITERATIONS? 
016576 001011 BNE 1$ 3;B8R IF YES 
016600 005737 001202 TST $PASS 3:IF FIRST PASS OF PROGRAM 
016604 001406 BEQ i$ 83 INHIBIT ITERATIONS 
016606 005237 001104 INC SICNT 3; INCREMENT ITERATION COUNT 
016612 023737 001160 001104 CMP $TIMES, $ICNT 3;CHECK THE NUMBER OF ITERATIONS MADE 
016620 002024 BGE SOVER 33BR IF MORE ITERATION REQUIRED 











—— 
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SCOPE HANDLER ROUTINE 


016622 
016630 
016636 
016642 
016650 
016654 
016660 
016664 
016672 
016700 
026704 
016706 

2225 

2226 


016710 
016714 
016716 
016722 


016726 
016732 
016734 
016736 
016742 
016744 
016750 
016754 
016760 
016762 


016764 
016770 
016772 
016774 
017000 
017006 
917010 
017012 
017014 
017020 
017022 
017030 
017032 
017036 
017042 
017046 
017050 
017054 
017056 
017060 


012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
000050 


105777 
100144 
117746 
042716 


021627 
001014 
005726 
105777 
100375 
117746 
042716 
022627 
001366 
000521 


022716 
001003 
005726 
000137 
022737 
001402 
005726 
000505 
022726 
001102 
123727 
001476 
104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 


C00001 
016706 
001102 
001102 
001106 
001110 
001162 
000001 
001102 
001106 


162230 


162224 
177600 


000023 


162202 
162176 


177600 
000021 


000003 


002310 
000176 


000007 
001134 
017600 
017605 
000176 


017616 


162060 





001104 
001160 


001200 


001115 
162242 


001140 


000001 


1$: MOV 
$SVLAD: 


SOVER: MOV 


RTI 
$MXCNT: 5O 
-LIST BIN 


#1, $ICNT 


$MXCNT, $STIMES 


$TSTNM 


$TSTNM,$TESTN 


(SP), $LPADR 
(SP), $LPERR 
SESCAPE 

#1, SERMAX 


$TSTNM,@DISPLAY 


$LPADR ,( SP) 


-SBTTL TTY INPUT ROUTINE 


Fo SS SSESEESEKEASKHAEEEASEESEAESEESKAKEKEREKEEAESAKEEAEREAEKEEEEEEED 


-ENABL LSB 


Fs SSSSAESKEKEKESEASSE EASA EEERASHAERASEASAEKESEKESHESKEKEAEEESEAAEES 


ssREINITIALIZE THE ITERATION COUNTER 


+3SET NUMBER OF ITERATIONS TO DO 
+;COUNT TEST NUMBERS 

33SET TEST NUMBER IN APT MAILBOX 
ssSAVE SCOPE LOOP ADDRESS 

3sSAVE ERROR LOOP ADDRESS 


3;CLEAR THE ESCAPE FROM ERROR ADDRESS 
ss;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


;;DISPLAY TEST NUMBER 
:sFUDGE RETURN ADDRESS 
ssFIXES PS 

73MAX. NUMBER OF ITERATIONS 


s*#SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
s*#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*#WHEN OPERATING IN TTY FLAG MODE. 


SCKSWR: TSTB 


131$: 


132$: CMP 
30$: CMP 


31$: CMP 


SGTSWR: 


asTKS 

15$ 

as TKB, -( SP) 
#*C177,(SP) 


(SP), #23 
132$ 

(SP)+ 

asTKS 

131$ 

as TKB, -( SP) 
#+C177,(SP) 
(SP)+, #21 
131$ 


$M 
SWREG, -( SP) 


. SMNEW 
-(SP) 
-(SP) 
asTKS 


3;CHAR THERE? 

:3IF NO, DON'T WAIT AROUND 
::;SAVE THE CHAR 
3:STRIP-OFF THE ASCII 


3:IS IT A CONTROL-S? sKJLOO1 
;;BRANCH IF NO sKJLOO1 
3;CLEAN CHAR OFF STACK ;KJLOO1 
+;WAIT FOR A CHAR sKJLOO1 
+sLOOP UNTIL ITS THERE ;KJLOO1 
3;GET THE CHARACTER sKJLOO1 
3sMAKE IT 7-BIT ASCII ;KJLOO1L 
3sIS IT A CONTROL -Q? sKJLOO1 
+;BRANCH IF NO sKJLOO1 
33NO, RETURN TO USER sKJLOO1 
33IS IT A CONTORL C? sRJLOOL 
33BR IF NOT sRJLOO1 
33POP THE STACK sRJLOO1 
+sRESTART IF tC ;RJLOO 


31S THE SOFT-SWR SELECTED? 
3;BR IF YES sRJLOO1 
3;POP THE STACK sRJLOO1 
3:BRANCH TO EXIT sRJLOO1 
3:IS IT A CONTROL G? 

33NO, RETURN TO USER 

3;ARE WE RUNNING IN AUTO-MODE? 
;;BRANCH IF YES 

33ECHO THE CONTROL-G (tG) 
3;TYPE CURRENT CONTENTS 

3;SAVE SWREG FOR TYPEOUT 


sRJLOOL 


3:GO TYPE--OCTAL ASCIICALL DIGITS) 


3;PROMPT FOR NEW SWR 
;;CLEAR COUNTER 

33 THE NEW SWR 

3;CHAR THERE? 





SEQ 0054 














C-ZORVB-O DRV11-WA DMA INTERFAC MACRO YOS.02 Monday 08-Apr-85 16:01 Page 10-45 
TTY INPUT ROUTINE 


SEQ 0055 


017064 100375 BPL 7$ 3;IF NOT TRY AGAIN 
017066 117746 162054 MOVB Os TKB, -(SP) 3:PICK UP CHAR 
017072 042716 177600 BIC #tC177,(SP) +sMAKE IT 7-BIT ASCII 
017076 021627 000003 CMP (SP) ,43 33I1S IT A CONTROL-C? 
017102 001015 BNE 9$ +:;BRANCH IF NOT 
017104 104401 017566 TYPE » $CNTLC +:YES, ECHO CONTROL-C (tC) 
017110 062706 000006 ADD #6 ,SP ;;CLEAN UP STACK 
017114 123727 001135 000001 CMPB SINTAG, #1 ;sREENABLE TTY KEYBOARD INTERRUPTS? 
017122 001003 BNE 8$ +;BRANCH IF NO 
017124 012777 000100 162012 MOV #100 ,asTKS 3;ALLOW TTY KEYBOARD INTERRUPTS 
027132 000137 002310 8$: JMP CSTART 3sCONTROL-C RESTART 
017136 021627 000025 9$: CMP (SP),#25 33IS IT A CONTROL-U? 
0:7142 001005 BNE 10$ :;BRANCH IF NOT 
017144 104401 017573 TYPE » $CNTLU 3:YES, ECHO CONTROL-U (tU) 
017150 062706 000006 20$: ADD #6 ,SP ;;IGNORE PREVIOUS INPUT 
017154 000737 BR 19$ ;;LET'S TRY IT AGAIN 
017156 021627 000015 10$: CMP (SP), #15 :3IS IT A <CR>? 
017162 001022 BNE 6$ ;;BRANCH IF NO 
017164 005766 000004 TST 4( SP) 3:YES, IS IT THE FIRST CHAR? 
017170 001403 BEQ 11$ ;;BRANCH IF YES 
017172 016677 000002 161740 MOV 2(SP),3SWR 7;SAVE NEW SWR 
017200 062706 000006 118; ADD #6 ,SP 3:;CLEAR UP STACK 
017204 104401 001171 14%; TYPE » $CRLF :3;ECHO <CR> AND <LF> 
017210 123727 001135 000001 CMPB SINTAG, #1 ;;RE-ENABLE TTY KBD INTERRUPTS? 
017216 001003 BNE 15$ :;BRANCH IF NOT 
017220 012777 000100 161716 MOV #100 ,a$TKS 3;RE-ENABLE TTY KBD INTERRUPTS 
017226 000002 15$: RTI :;RETURN 
017230 004737 014440 16$: JSR PC,$TYPEC :;ECHO CHAR 
017234 021627 000060 CMP (SP), #60 :;CHAR < 0? 
017240 002420 BLT 18$ ;:BRANCH IF YES 
017242 021627 000067 CMP (SP), #67 3:;CHAR > 7? 
017246 003015 BGT 18$ ;;BRANCH IF YES 
017250 042726 000060 BIC #60,(SP)+ 3;STRIP-OFF ASCII 
017254 005766 000002 TST 2(SP) 3:I1S THIS THE FIRST CHAR 
017260 001403 BEQ 17$ ;;BRANCH IF YES 
017262 006316 ASL (SP) 3:NO, SHIFT PRESENT 
017264 006316 ASL (SP) 33 CHAR OVER TO MAKE 
017266 006316 ASL (SP) 83 ROOM FOR NEW ONE. 
017270 005266 000002 17$: INC 2(SP) ;:KEEP COUNT OF CHAR 
017274 056616 177776 BIS -2(SP),(SP) 7:SET IN NEW CHAR 
017300 000667 BR 7$ 3;GET THE NEXT ONE 
017302 104401 001170 18$: TYPE » $QUES 33 TYPE ?<CR><LF> 
017306 000720 BR 20$ :;SIMULATE CONTROL -U 
-DSABL LSB 
f PARRA AEEEEEEAEKAASAARAAAAAREAAAAREERERERAEEERAREERARERERRELES 
ay ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;*CALL: 
3* RDCHR :;INPUT A SINGLE CHARACTER FROM THE TTY 
3* RETURN HERE ;;CHARACTER IS ON THE STACK 
;* ::;WITH PARITY BIT STRIPPED OFF 
017310 011646 $RDCHR: MOV (SP),-CSP) 3:PUSH DOWN THE PC 
017312 016666 000004 000002 MOV 4(SP),2(SP) 3;SAVE THE PS 
017320 105777 161620 1$: TSTB asTKS ;;WAIT FOR 
017324 100375 BPL § 3:A CHARACTER 
017326 117766 161614 000004 MOVB a$TKB,4(SP) 3:READ THE TTY 
017334 042766 177600 000004 BIC #tC<177>,4(SP) ;;GET RID OF JUNK IF ANY 








Ses a 





rnc ee 
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SEQ 0056 
TTY INPUT ROUTINE 
017342 026627 000004 000023 CMP 4(SP), #23 ssIS IT A CONTROL-S? 
017350 001013 BNE 3$ :s;BRANCH IF NO 
017352 105777 161566 2s: TSTB a@sTKS 3s;WAIT FOR A CHARACTER 
017356 100375 BPL 2s #;LOOP UNTIL ITS THERE 
017360 117746 161562 MOVB 8s TKB, -(SP) 33GET CHARACTER 
017364 042716 177600 BIC #*C177,(SP) +sMAKE IT 7-BIT ASCII 
017370 022627 000021 CMP (SP)+, #21 ssIS IT A CONTROL-Q? 
017374 001366 BNE es 3sIF NOT DISCARD IT 
017376 000750 BR 1$ 3sYES, RESUME 
017400 026627 000004 000140 33: CMP 4(SP), #140 3sIS IT UPPER CASE? 
027406 002407 BLT 4s ;3s;BRANCH IF YES 
017410 026627 000004 000175 CMP 4(SP), #175 3sIS IT A SPECIAL CHAR? 
027416 003003 BGT Js ;sBRANCH IF YES 
017420 042766 000040 000004 BIC #40,4(SP) 3sMAKE IT UPPER CASE 
027426 000002 43: RTI 33GO BACK TO USER 


§ PER EEAAEEEAAESAEREAAEEAEEEAEEEAEEAAARERARERAEAREERARERSRERERES 
s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


3:#CALL: 
34 RDLIN 3;INPUT A STRING FROM THE TTY 
3* RETURN HERE 3sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
34 3; TERMINATOR WILL BE A BYTE OF ALL 0'S 
017430 010346 $RDLIN: MOV R3,-(SP) ::SAVE R3 
017432 012703 017556 1$: MOV #$TTYIN,R3 ;:GET ADDRESS 
017436 022703 017566 2s: CMP #$TTYIN+8. ,R3 ;;BUFFER FULL? 
017442 101415 BLOS 4$ 3;BR IF YES 
017444 104410 RDCHR +;GO READ ONE CHARACTER FROM THE TTY 
017446 112613 MOVB CSP)+,C(R3) 3;GET CHARACTER 
017450 122713 000003 CMPB #3,(R3) +3IS IT A CONTROL-C? 
017454 001005 BNE 10$ ;:BRANCH IF NO 
017456 104401 017566 TYPE » $CNTLC 3:TYPE A CONTROL-C (tC) 
017462 012603 MOV (SP)+,R3 +sRESTORE R3 
017464 000137 002310 JMP CSTART 3;GOTO CONTROL-C RESTART 
017470 122713 000177 10$: CMPB #177,CR3) ::IS IT A RUBOUT 
017474 001003 BNE 3$ ::SKIP IF NOT 
017476 104401 001170 4$: TYPE » $QUES 33TYPE A‘?! 
017502 000753 BR 1$ +;CLEAR THE BUFFER AND LOOP 
017504 111337 017554 3$: MOVB (R3),9$ 3;ECHO THE CHARACTER 
017510 104401 017554 TYPE .9$ 
017514 122723 000015 CMPB #15,(R3)+ :s;CHECK FOR RETURN 
017520 001346 BNE 2s ;;LOOP IF NOT RETURN 
017522 105063 177777 CLRB -1(R3) ;;CLEAR RETURN (THE 15) 
017526 104401 001172 TYPE »$LF 3:TYPE A LINE FEED 
017532 012603 MOV (SP)+,R3 ;sRESTORE R3 
017534 011646 MOV (SP),-CSP) 3s;ADJUST THE STACK AND PUT ADDRESS OF THE 
017536 016666 000004 000002 MOV 4(SP),2(SP) 33 FIRST ASCII CHARACTER ON IT 
017544 012766 017556 000004 MOV #$TTYIN, 4( SP) 
017552 000002 RTI ; sRETURN 
017554 000 9$: -BYTE 0 3;STORAGE FOR ASCII CHAR. TO TYPE 
017555 000 -BYTE i?) 3: TERMINATOR 
017556 $TTYIN: .BLKB 8 ;sRESERVE 8 BYTES FOR TTY INPUT 


017566 136 103 015 $CNTLC: .ASCIZ /tC/<15><12> ssCONTROL “C” 
017573 136 125 015 $CNTLU: .ASCIZ /tU/<15><12> 3sCONTROL “U” 
017600 136 107 015 $CNTLG: .ASCIZ /tG/<15><12> +sCONTROL “G” 
017605 015 012 123. $MSWR: .ASCIZ <15><12>/SWR = / 
017616 040 040 116 pony -ASCIZ / NEW = / 
-EV 
2227 s+ CONTROL-C RESTART ENABLED sKJLOO1 








enn nnn nnn nS SSS sss 
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POWER DOWN AND UP ROUTINES 


2228 


2229 
2230 
2231 
2232 
2233 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 


017630 
017636 
017644 
017646 
017650 
017652 
017654 
027656 
017660 
027664 
017670 
017676 
017700 


017702 
017710 
017714 
017720 
017724 
017726 
017732 
017734 
017736 
017740 
017742 
017744 
017746 
017754 
017762 
017764 
017766 
017770 
017772 
017774 
017776 
020000 


020002 


022366 
022370 
022374 
022402 
022406 





SEQ 0057 


-SBTTL POWER DOWN AND UP ROUTINES 
EM cheheshthcachduubshcdehthdebihit heh tL iLL LLL LL LLL Titi titi TT TT TTT ttt 
sPOWER DOWN ROUTINE 

012737 017774 000024 $PWRDN: MOV $ILLUP,@OPWRVEC ;;SET FOR FAST UP 


012737 000340 000026 MOV #340 ,QOPWRVEC+2 ;;PRIO:7 

010046 MOV RO, -(SP) +sPUSH RO ON STACK 
010146 MOV R1,-(SP) :sPUSH R1 ON STACK 
010246 MOV R2,-(SP) ssPUSH R2 ON STACK 
010346 MOV R3,-CSP) +sPUSH R3 ON STACK 
010446 MOV R4,-CSP) 3sPUSH R4 ON STACK 
010546 MOV RS,-(SP) 3sPUSH RS ON STACK 
017746 161254 MOV @SWR , -(SP) 3sPUSH @SWR ON STACK 
010637 020000 MOV SP, $SAVR6 +sSAVE SP 

012737 017702 000024 MOV #$PWRUP,@ePWRVEC ;;SET UP VECTOR 

000000 HALT 

000776 BR --2 :sHANG UP 


5 § EERE EREAAE EAA EEAAEAAREAAEEEAEAAARRRARERAAREEAEA EERE EERE EERE EES 
sPOWER UP ROUTINE 
012737 017774 000024 $PWRUP: MOV #$ILLUP, 9¢PWRVEC Jos FAST DOWN 


013706 020000 MOV $SAVR6E ,SP +3GET 
005037 020000 CLR $SAVR6 3sWAIT LOOP FOR THE TTY 
005237 020000 1$: INC SSAVR6 3sWAIT FOR THE INC 
001375 BNE 1$ 33;0F WORD 
012677 161206 MOV (SP)+,@SWR :sPOP STACK INTO SSWR 
012605 MOV (SP)+,R5 3sPOP STACK INTO RS 
012604 MOV (SP)+,R4 3sPOP STACK INTO R4 
012603 MOV (SP)+,R3 3sPOP STACK INTO R3 
012602 MOV (SP)+,R2 3sPOP STACK INTO R2 
012601 MOV (SP)+,R1 3sPOP STACK INTO R1 
012600 MOV (SP)+,RO 3sPOP STACK INTO RO 
012737 017630 000024 MOV #$PWRON, O#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
012737 000340 000026 MOV #340 ,4¢PWRVEC+2 ;;PRIO:7 
104401 TYPE ;sREPORT THE POWER FAILURE 
020002 SPWRMG: .WORD PWRMSG +sPOWER FAIL MESSAGE POINTER 
012716 MOV (PC)+, (SP) ssRESTART AT RESTRT 
002616 $SPWRAD: .WORD RESTRT +sRESTART ADDRESS 
000002 RTI 
000000 $ILLUP: HALT +;THE POWER UP SEQUENCE WAS STARTED 
000776 BR --2 3; BEFORE THE POWER DOWN WAS COMPLETE 
000000 $SAVR6: O 3s;PUT THE SP HERE 
-NLIST BIN 
PWRMSG: .ASCIZ <15><12>/RESTARTED FROM POWER FAIL/ 
-EVEN 
Die P PPP PPP PPP PPP PCCP PSOE SSSR COCO SCCOS CCS C CCS C COSC e CeCe CeCe eee eee Tere ee 


-NLIST CND 


a 
5 Fp FERREEAREAEAAASAREAEAEAEEAARAEEARAERASEARAAEAREASARREEALEREALES 


-SBTTL ROUTINE TO SIZE FOR DRV11 UNITS sRJLOO1 
§  MERERAAAEEEEAESAREASSEAEAESAAEARERAAADEAEAEEEAKEEEEEEEEEER SEEDS 


; sRJLOO1 
010446 DRVSIZ: MOV R4,-(SP) sSAVE R4 sRJLOO1 
OOF037 022774 CLR WORK2 sCLEAR THE 2ND WORK LOCATION sRJLOOL 
012737 000001 022776 MOV #1, WORKS sSET # OF DEVICES TO 1 
012704 022750 MOV @WORK1 ,R4 sSET UP THE TABLE ADDRESS 
012737 172414 022732 MOV #172414,RCSR sSET ADDR 
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ROUTINE TO SIZE FOR DRV11 UNITS 


2587 022414 012737 
2588 022422 104401 
005777 


022774 
000001 


022776 
022776 
022564 
000010 
172524 


000004 
022774 


023171 
177777 


022734 
000112 
177776 
000003 


000776 


000000 
022700 
000340 


012777 010777 


012701 000002 


2636 022652 
2637 022654 
2638 022656 
2639 022660 
2640 022666 
2641 022672 
2642 022676 
2643 022700 


010777 
022734 
023076 


162716 000004 





022774 


001252 


022732 
022732 


022744 


000014 
000016 
000070 


000044 





1s: TST 


100$: ASL 
102s: BIS 


2$: ADD 


3$;: ADD 


DRDONE: MOV 


sRJLOO1 
3%, TRAPT4 
os 


WORK3, SDEVM 
PC ,GETVEC 
#10,RCSR 
#172524,RCSR 
DRDONE 


Page 10-48 


;SET VECTOR 

;TYPE THE AUTO SIZER MESSAGE 
;GO0D ADDRESS? 

;GET THE ADDRESS 

sMAKE IT THE BASE ADDRESS 
sTYPE THE ADDRESS MESSAGE 
;PUT THE NUMBER ON THE STACK 
;TYPE THE OCTAL NUMBER 
sPRINT 6 NUMBERS 

;SUPPRESS LEADING 0's 
sINCREMENT THE @ OF DEVICES 
31ST ONE? 

;8R IF YES 

sMAKE DEVICE ENABLE BIT 

sNOW SET THE DEVICE MAP 

;GET THE VECTOR 

:INC ADDR 

sLAST ONE DONE? 

;YES--EXIT 

:TRY NEXT ONE 

:POP STACK 

;ARE THERE ANY UNITS? 

;BR IF YES 

sTYPE THE “No devices found” 
sRESTORE R4 

sSET THE SIZE FLAG 

sEXIT 


§ § SSSSERSESEESESSSESAERAKAAASAACASARASERASAEEAREAASSASEARALES SALES 


-SBTTL ROUTINE TO GET DRV11-WA VECTOR ADDRESS 
Perro C IPI iiiititititttittt ttt ttt ttt ttt TT TT 


GETVEC: MOV 
MOV 
1$: MOV 


SP ,SAVESP 


#340 ,16 
#10777, @RCSR 


sSAVE SP 

sSET UP VECTOR AREA 
sMOV VEC+2 TO VEC 
sMOV BPT TO VEC+2 
sINC RO BY 2 

oo VECTOR? 


; 
sALLOW INTERRUPTS 
sSET UP BPT VECTOR 
s;SET BPT PSW 
sFORCE INTR 


§ ff SRSRAEAAEEASESAEEAEAEEEASEASEERAAEEASEAREEEAEEEAEEKAEALAEAALELELE 


-SBTTL KILL SOME TIME WHILE WAITING FOR INTERRUPT 
jE RRRRAEEEEAEEEEAEEARASAAEAEAESAASEAEAEEEAES AAA RARESALEEALE SALES 


VECTIM: MOV 
CLR 
1$: DEC 
BNE 
2s: DEC 
BNE 
BIC 
MOV 
TYPE 
4$: RTS 
FIGV: SUB 


#2,R1 


#10777, 8RCSR 
SAVESP ,SP 
«NOINTR 

PC 

#4, (SP) 


;SET COUNTER 

:CLEAR RO 

:DEC RO 

;RO=0? BR IF NOT 

;DEC COUNTER 

;BR IF NOT O 

;CLR INTR ENABL 

sRESTORE STACK 

sTYPE DEVICE DION’ T INTERRUPT 


sEXIT 
sFIGURE OUT THE VECTOR 


sRJLOOL 





SEQ 0058 















































C-ZORVB-0 DRV11-WA DMA INTERFAC MACRO Y0OS.02 Monday 08-Apr-85 16:01 Page 10-49 


SEQ 0059 

KILL SOME TIME WHILE WAITING FOR INTERRUPT sRJLOOL 

2644 022704 011624 MOV (SP),CR4)+ sSAVE THE VALUE sRJLOOL 

2645 022706 104401 023156 TYPE »VECADR sTYPE THE “Vector=" sRJLOOL 

2646 022712 104403 TYPOS sTYPE THE VECTOR ADDRESS sRJLOOL 

2647 022714 003 wYTE §& ; 3 NUMBERS sRJLOOL 

2648 022715 000 -BYTE 0 ; SUPPRESS LEADING 0’s ;RJLOO1 

2649 022716 013706 022734 MOV SAVESP ,SP sRESTORE STACK sRJLOOL 

2650 022722 042777 010777 000002 BIC #10777, @RCSR ;CLR INTR ENABL sRJLOO1 

2651 022730 000207 2s: RTS PC sEXIT sRJLOOL 

2652 A sRJLOOL 

2653 022732 000000 RCSR: -WORD 0 sRJLOOL 

2654 022734 000000 SAVESP: .WORD 0 sRJLOOL 

2655 022736 000000 SAV176: .WORD 0 sLOCATION TO STORE CONTENTS OF LOC 176 ;RJLOO1L 

2656 022740 000000 SAV200: .WORD 0 sLOCATION TO STORE CONTENTS OF LOC 200 sRJLOOL 

2657 022742 000000 SAV202: .WORD 0 sLOCATION TO STORE CONTENTS OF LOC 202 sRJLOOL 

2658 022744 000000 $SIZE: .WORD 0O sFLAG LOCATION sRJLOOL 

2659 022746 022750 VECTOR: WORK1 ; TABLE POINTER LOCATION sRJLOOL 

2660 022750 000000 WORK1: .WORD 0 ;LOCATIONS WHERE THE FOUND VECTORS GO sRJLOOL 

2661 022752 000000 «WORD 0 sRJLOOL 

2662 022754 000000 WORD 0 sRJLOO1L 

2663 022756 000000 WORD 0O sRJLOO1 

2664 022760 000000 WORD 0 sRJLOO1L 

2665 022762 000000 WORD 0 +RJLOOL 

2666 022764 000000 WORD 0 sRJLOOL 

2667 022766 000000 WORD 0 sRJLOOL 

2668 022770 000000 WORD 0O sRJLOOL 

2669 022772 000000 -WORD O sRJLOO1 

2670 022774 000000 WORK2: .WORD 0 sRJLOOL 

2671 022776 000000 WORK3: .WORD 0O sRJLOOL 

2672 023000 000000 WORK4: .WORD 0 ;RJLOO1L 

2673 023002 000000 $FLAG: .WORD 0O sRJLOO1L 

—o -NLIST BIN ;RJLOO1L 

26 

2676 023004 AUTOS: .ASCII <15><12>/Auto Size found DRV11-WA'S/ sRJLOOL 

2677 023040 -ASCIZ ¢ at the following locations/<15><12> ;RJLOOL 

2678 023076 NOINTR: .ASCIZ Device didn't interrupt. / sRJLOO1 

2679 023130 DEVADR: .ASCIZ seovaudy eae WA Address = / sRJLOOL 

2680 023156 VECADR: .ASCIZ / Vector = / sRJLOOL 

2681 023171 NODEV: .ASCIZ <15><12>/ No devices found. / ;RJLOOL 

2682 -EVEN ;RJLOOL 

2683 -LIST BIN sRJLOOL 

2684 H sKJLOOL 

2685 5S REREREAEEEEA ES EAEEEEEAEREREAREEAEAEAEAAEAREREREARAKAAAEA RARE AAS 

2686 -SBTTL TIMING ROUTINE TO LOOP AFTER RESET 

2687 ; THIS LOOP IS TU WASTE TIME WHILE THE RESET IS TAKING PLACE sKJLOO1L 

2688 ; OTHERWISE, A‘ © WILL BE DISPLAYED ON THE CONSOLE TERMINAL sKJLOOL 

2689 5 RARER RAAAARAAEEAAEEREAEAA AERA EARAAAAEAEAEAAAAERRRARA REARS RARE ‘AK 

2690 

2691 023216 005000 WSTTIM: CLR RO ;CLEAR DELAY COUNTER sKJLOO1L 

2692 023220 005300 1$: DEC RO sDECREMENT DELAY COUNTER sKJLOO1 

2693 023222 001376 BNE i$ ;BRANCH IF NOT ZERO +KJLOO1 

tes 023224 000207 RTS PC ;RETURN sKJLOOL 

2696 FE RRRAEREREEEEEREEAAAEAEAEAEAREEERARAEABARAKARAKAKARAEALALKAAAAAAL 

2697 -SBTTL RESTORE DEFAULT REGISTER ADDRESSES ROUTINE sRJLOOL 

2698 5 RRRRAAEEAEAAAEAEEREAAA AE AEAAAAAAAAAAEAAAKAAKAKEAKKAK AKER KARA AEA 

2699 

2700 023226 012700 001712 SETREG: MOV #DRVWCR,RO 3SET UP REG ADRS POINTERS 
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SEQ 0060 
RESTORE DEFAULT REGISTER ADDRESSES ROUTINE sRJLOO1 
2701 023232 013701 001250 MOV $BASE,R1 sSET BASE ADRS 
2702 023236 010120 1$: MOV R1,CRO)+ sLOAD EM 
2703 023240 062701 000002 ADD #2,R1 ; 
2704 023244 022700 001722 CMP #ORVDBR+2,RO0 sALL DONE? 
2705 023250 001372 BNE 1$ :BR IF NOT 
2706 023252 013737 001714 001722 MOV DRVBAR,DRVBAE ;SET UP BAE REG ADDRESS sKJLOO1 
2707 023260 012700 001724 MOV #DRVCTO,RO sSET UP DRV11WA VECTOR ADRS POINTER 
2708 023264 013701 001244 MOV $VECT1,R1 sGET BASE VECTOR ADRS 
2709 023270 042701 170000 BIC #170000,R1 sCLR OUT PRIORITY BITS 
2710 023274 010120 2s: MOV Ri, CRO)+ : 
2711 023276 062701 000002 ADD #2,R1 sPOINT TO NEXT 
2712 023302 022700 001730 CMP #DRVCT2+2,RO0 sALL DONE? 
2713 023306 001372 BNE 2s ;BR IF NOT 
aris 023310 000207 RTS PC sRETURN 
2716 -SBTTL TRAP DECODER 
5 RERRREAEEE EEE EEEEEREAEEERAEAEEEAAEEAERAEREAEAEARE AREER ERAS 
s#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*#GO TO THAT ROUTINE. 
023312 010046 $TRAP: MOV RO, -(SP) +sSAVE RO 
023314 916600 000002 MOV 2(SP),RO 3sGET TRAP ADDRESS 
023320 005740 TST -C(RO) ;sBACKUP BY 2 
023322 111000 MOVB (RO),RO +sGET RIGHT BYTE OF TRAP 
023324 006360 ASL RO 3sPOSITION FOR INDEXING 
023326 016000 023346 MOV $TRPADCRO),RO ;; INDEX TO TABLE 
023332 000200 RTS RO 33GO TO ROUTINE 
3sTHIS IS USE TO HANDLE THE “GETPRI” MACRO 
023334 011646 $TRAP2: MOV (SP),-CSP) 3sMOVE THE PC DOWN 
023336 016666 000004 000002 MOV 4(SP),2CSP) +sMOVE THE PSW DOWN 
023344 000002 RTI s+sRESTORE THE PSW 
-SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
+*#BY THE “TRAP” INSTRUCTION. 
: ROUTINE 
3 “eee ee 
023346 023334 $TRPAD: .WORD $TRAP2 
023350 014226 $TYPE ;;CALL=TYPE TRAP +1(104401) TTY TYPEOQUT ROUTINE 
023352 015002 $TYPOC ;;CALL=TYPOC TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
023354 014756 $TYPOS ;;CALL=TYPOS TRAP +3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
023356 015016 $TYPON ;;CALL=TYPON TRAP +4(104404) TYPE OCTAL NUMBER CAS PER LAST CALL) 
023360 015204 $TYPDS ;;CALL=TYPDS TRAP +5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
023362 017036 $GTSWR ;;CALL=GTSWR TRAP +6(104406) GET SOFT-SWR SETTING 
023364 016710 $CKSWR = ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
023366 017310 $RDCHR ;;CALL=RDCHR TRAP +10(104410) TTY TYPEIN CHARACTER ROUTINE 
023370 017430 $RDLIN ;;CALL=ROLIN TRAP +110104411) TTY TYPEIN STRING ROUTINE 
2717 jE RRRRAESRAEAEEAAEEAAREAEAEEEE ERED EE ESAS EE EEEEEEREEEEE SEED EEEES 
2718 -SBTTL ASCII MESSAGES 
2719 j RRRRAEAAAEEREEEEEAESEAAAAAESEAAEAREEAREAASEAASEAREDEEE SEED EE EES 
day -NLIST BIN 
2722 023372 EM1: -ASCIZ /REGISTER TIMEOUT ERROR/ 
2723 023421 EMe2: -ASCIZ “REGISTER READ/WRITE ERROR” 
2724 023453 EM3: -ASCIZ /BUS RESET ERROR/ 
2725 023473 EM4: -ASCIZ /FNCT BITS FAILED TO SET STATUS BITS/ 
2726 023537 EMS: -ASCIZ /READY INTERRUPT FAILURE/ 
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ASCII MESSAGES 


2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 


-— 


023567 
023616 
023643 
023674 
023726 
023755 
024002 
024050 
024107 
024165 
024236 
024256 
024315 
024355 
024417 
024464 


024510 
024524 
24542 


024552 
024617 
024657 
024675 
024705 
024712 
024761 
025017 
025042 
025124 


025154 


025224 





EM6: -ASCIZ /READY CLR OR SET ERROR/ 

EM?: -ASCIZ /STATUS ERROR ON XFER/ 

EM10: -ASCIZ /WORD COUNT ERROR ON XFER/ 

EMi1: -ASCIZ /BUFFER ADRS ERROR ON XFER/ 

EM12: -ASCIZ /DATA ERROR FROM MEMORY/ 

EM13: -ASCIZ /DATA ERROR TO MEMORY/ 

EM14: -ASCIZ /SINGLE CYCLE OFF DID NOT LOCK OUT CPU/ 

EMiS: -ASCIZ /SINGLE CYCLE ON LOCKED OUT CPU/ 

WARN: -ASCII <15><12>/Please disable "REV11” memory refresh option/ 
-ASCIZ <15><12>/and enable processor memory refresh. /<15><12> 

EM16: -ASCIZ /NEX LOGIC ERROR/ 

EM1i7: -ASCIZ /CYCLE FAILED TO CLOCK DBR CIN)/ 

EM20: -ASCIZ “DATA ERROR FROM I/0 PAGE C(XCSR)” 


DH1: -ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
DHe: -ASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD/ 
DH3: oven ZERRPC TSTNUM SUSADR/ 

V 


DT1: $ERRPC , TSTNUM, $BDADR, $GDDAT, $BDDAT,0 
DT2:  $ERRPC,TSTNUM, $BDADR, $GDADR, $GDDAT, $BDDAT,O 
DT3:  $ERRPC,TSTNUM, $BDADR,O 


fp RRRAREERAEREREAEEREEEERERAERREARAREAAEREREARARAREAAAAREEAEKERRES 
-SBTTL STANDARD PROGRAM MESSAGES 
f RRRERRERARREEEARERAEERRASERERAAREREAEREREAARERAAEEARARERAERE AEE 
MMAMES: .ASCIZ <15><12>/KT11 (Memory Management) avai lable/ 
AVAL22: .ASCIZ <15><12>/22 Bit Addressing available/<15><12> 
MEMMES: .ASCIZ <15><12>/Memory Map:/ 
FROM: -ASCIZ <15><12>/From / 
TO: -ASCIZ / To / 
INSUFF: .ASCII <15><12>/INSUFFICIENT MEMORY TO RUN DIAGNOSTIC/ 
-ASCIZ / ... FIRST 16K NOT ALL THERE!/ 
NOMEM: .ASCIZ <15><12>/NO MEMORY FOUND./ 
Q22CPU: .ASCIZ <15><12>\Does this CPU support 22-bit addressing? [Y/N] \ 
UUT: -ASCIZ <15><12>/ Testing Unit Number / 
-EVEN 
-LIST BIN 


PATCH: .BLKW 20. 320 WORD PATCH AREA 

fp RRRRAERAEE RARE EAAREAEEAEEEAAEAAEEEAEAEARARASARAREEAA SARE EEEE EES 
;'DBUF‘ IS THE WORKING AREA IN EACH 4K MEM FOR ALL 

sNPR OPERATIONS - IT IS 200 WORDS LONG 

5 RRR REREAAAEEREEAREAEEAAEAAREAAAEEAREEAEE SARE AERA SERRA EADS REELS 


000000 DBUF: 0 31ST ADRS OF DATA BUFFER 
000001 -END 









SEQ 0061 
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SEQ 0062 






























































Symbol table 

ABASE = 172410 AVECT2= 000000 DISMAP 003500 EXAMO8 021704 LOOKIE 020404 
ACDW1 = 000000 BACKEX 021524 DISPLA 001142 EXAMO9 021710 LOOK1 020672 
ACDW2 = 000000 BITO = 000001 DISPRE 000174 EXAM1 020120 LOOK2 020036 
ACPUOP= 000000 BITOO = 000001 DMAP 001732 EXAM10 021747 LOOKS 021050 
ADDWO = 000000 BITO1 = 000002 ORDONE 022552 EXAM11 021754 LSIFLG 001702 
ADDW1 = 000000 BITO2 = 000004 DRVBAE 001722 EXAM12 021762 LSIQ@22 001704 
ADDW10= 000000 BITO3 = 000010 DRVBAR 001714 EXAM2 020104 MASK4K= 017777 
ADDW11= 000000 BITO4 = 000020 DRVCSR 001716 EXAM3 021774 MASK8K= 037777 
ADDW12= 000000 BITOS = 000040 DRVCTO 001724 EXBACK 020422 MEMMAP 001524 
ADDW13= 000000 BITO6 = 000100 DRVCT2 001726 EXTP1 021500 MEMMES 024657 
ADDW14= 000000 BITO7 = 000200 DRVDBR 001720 EXTRAP 021470 MFPT = 000007 
ADDW15= 000000 BITO8 = 000400 DRVSIZ 022366 FIDDLE 021776 MMAMES 024552 
ADDW2 = 000000 BITO9 = 001000 DRVWCR 001712 FIGV 022700 MMAVA 001710 
ADDW3 = 000000 BITi = 000002 DSWR = 177570 FIRST2 020452 MMCK 002724 
ADDW4 = 000000 BIT10 = 002000 OT1 024510 FLG30K 001676 MMINIT 012326 
ADDWS = 000000 BIT11 = 004000 OT2 024524 FROM 024675 MMVEC = 000250 
ADDW6 = 000000 BIT12 = 010000 DT3 024542 FSTPAS 001706 MOV272 021152 
ADDW7 = 000000 BIT13 = 020000 EDEL 020366 GETVEC 022564 MPAT 021070 
ADDWS8 = 000000 BIT14 = 040000 EINPUT 022102 G GOST 020414 MPATT 021064 
ADDW9 = 400000 BIT15 = 100000 ELTOU 022336 G GTSWR = 104406 MSD 021134 
ADEVCT= 300000 BIT2 = 000004 EMTVEC= 000030 HT = 000011 MTPS = 106427 
ADEVM = y00001 BIT3 = 000010 EM1 023372 INCE 020340 MYCC 022002 
AENV = 000000 BIT4 = 000020 EM10 023643 INSUFF 024712 NODEV 023171 
AENVM = 0C0000 BITS = 000040 EM11 023674 IOTVEC= 000020 NOINTR 023076 
AFATAL= 000000 BIT6 = 000100 EM1i2 023726 JMPCHK 021432 NOMEM 025017 
AMADR1= 000000 BIT7 = 000200 EM13 023755 JMPCK 020410 NONKT 003142 
AMADR2= 000000 BIT8 = 000400 EM14 024002 JPCX 021244 NORUB 022026 G 
AMADR3= 000000 BIT9 = 001000 EM1i5 024050 JPEX1 021240 NXDEV 012042 
AMADR4= 000000 BNKTAB 016424 EM16 024236 KBCS = 177560 NXDEVi 012044 
AMAMS1= 000000 BPTVEC= 000014 EM17 024256 KBDB = 177562 OPRINT 022322 G 
AMAMS2= 000000 CHSV 021336 EM2 023421 KBDSRV 013700 PATCH 025154 
AMAMS3= 000000 CHSV1 021404 EM20 024315 KBDSR1 013710 PATT 022010 
AMAMS4= 000000 CHSV2 021560 EM3 023453 KIPARO= 172340 PIRQ = 177772 
AMSGAD= 000000 CKDAT 013272 EM4 023473 KIPARI= 172342 PIRQVE= 000240 
AMSGLG= 000000 CKDAT1 013344 EMS 023537 KIPAR2= 172344 PRCS = 177564 
AMSGTY= 000000 CKDAT2 013452 EM6 023567 KIPAR3S= 172346 PROB = 177566 
AMTYP1= 000000 CKSTAT 012520 EM7 023616 KIPAR4= 172350 PRO = 000000 
AMTYP2= 000000 CKSTAL 012704 ENDBKT 016426 KIPARS= 172352 PR1 = 000040 
AMTYP3= 000000 CKSWR = 104407 ENDL 020470 KIPAR6= 172354 PR2 = 900100 
AMTYP4= 000000 CONL 020474 ENDLOK 021320 KIPAR7= 172356 PR3 = 000140 
APASS = 000000 CONLOK 021350 EPRINT 022216 G KIPDRO= 172300 PR4 == 000200 
APRIOR= 000000 CORCMP 020544 ERROR = 104000 KIPDR1i= 172302 PRS = 000240 
APTCSU= 000040 CORCP1 020556 ERRVEC= 000004 KIPDR2= 172304 PR6 = 000300 
APTENV= 000001 CORSCN 020504 ESC 022014 G KIPDR3= 172306 PR7 = 000340 
APTSIZ= 000200 CORSZ 001734 EWORK 021764 KIPDR4= 172310 PS = 177776 
APTSPO= 000100 CORSZR 002514 EWORKO 021766 KIPDRS= 172312 PSW = 177776 
ASKQ22 013560 CR = 000015 EWORK1 021770 KIPDR6= 172314 PWRMSG 020002 
ASLE 020330 CRLF = 000200 EWORK2 021772 KIPOR7= 172316 PWRVEC= 000024 
ASRAD 021306 CSTART 002310 EXAM 020050 G KTSIZ 003264 Q22CPU 025042 
ASR3 022064 CTRLE 022166 G EXAMIN 020134 LOBUF 013140 RCSR 022732 
ASWREG= 000000 DBUF 025224 EXAMO1 021626 LOBUF1 013216 RDCHR = 104410 
ATESTN= 000000 DBUFP 001736 EXAMO2 021634 LF = 000012 RDLIN = 104411 
AUNIT = 000000 DDISP = 177570 EXAMO3 021642 LMAD 001522 RELOC 022012 
AUSWR = 000000 DEVADR 023130 EXAMO4 021650 LMEMHI 016422 RESTRT 002616 
AUTOS 023004 DH1 024355 EXAMOS 021656 LMEMLO 016420 RESVEC= 000010 
AVAL22 024617 DH2 024417 EXAMO6 021663 LOOK 020772 RETEX 020426 
AVECT1= 000124 DH3 024464 EXAMO7 021666 LOOKAD 022000 REXTS 021624 
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Symbol table 


RSTVEC 012474 
RTEX1 020450 
Rw = 000006 
R6 =#000006 
R7 =#%000007 
SAVESP 022734 
SAVET& 022006 
SAVE2 022004 
SAVTST 001624 
SAV176 022736 
SAV200 022740 


SCOPE = 000004 
SETREG 023226 
SETVEC 012454 
SRO = 177572 
SR1 == 177574 
SR2 = 177576 
SRS = 172516 
STACK = 001100 
START 001740 


STPCOR 020642 
SWR 001140 
SWREG 000176 
SWO = 000001 
SWOO = 000001 
SWO1 = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4 = 000020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 
SWO8 = 000400 
SWO9 = 001000 
SWi = 000002 
SW10 = 002000 
SW1i1 = 004000 
SWi2 = 010000 
SWi3 = 020000 
SW14 = 040000 
SWiS = 100000 
SW2 = 000004 
SW3 = 000010 
SW4 = = 000020 
SWS = 000040 
SW6 = =: 000100 
SW7 = = 000200 
SWB = = 000400 
SW9 == 001000 
TBITVE= 000014 
TE 001700 
TIMER 013652 





TKVEC = 
TO 
TPVEC = 
TRAPT4= 
TRAPVE= 
TRIVEC= 
TSTMAP 
TSTNUM 
TST1 
TST10 
TSTil 
TST12 
TST13 
TST14 
TST1i5 
TST16 
TST17 
TST2 





000060 
024705 
000064 
000004 
000034 
000014 
001564 
001730 
003612 
004752 
005162 
005242 
005330 
005432 
005576 
005704 
006022 


021606 


$APTHD 
$ATYC 
$ATY1L 
$ATY3 
SATY4 
$AUTOB 
$BASE 
$BDADR 
$BDDAT 
$BELL 
$COW1 
$COW2 
$CHARC 
$CKSWR 
$CMTAG 
$sCM3 = 
$CNTLC 
SCNTLG 
$SCNTLU 
$CPUOP 
$CRLF 
$OBLK 
$D0W0 
$D0W1 


SERRPC 


001000 
014534 
014510 
014516 
014526 
001134 
001250 
001122 
001126 
061164 
001254 
001256 
014504 
016710 
001100 
000000 
017566 
017600 
017573 
001222 
001171 
015420 
001260 
001262 
001304 
001306 
001310 
001312 
001314 
001316 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001204 
001252 
012276 
015410 
012266 
012230 
012302 
012310 
012305 
001214 
001215 
012174 
012222 
001103 
001115 
015430 
001116 


SERRTB 
SERRTY 
SERTTL 
SESCAP 
SETABL. 
SETEND 
$FATAL 
$FFLG 

$FILLC 
$FILLS 


001320 


017770 


$PWRON 
$PWRMG 
$PWRUP 
SQUES 
$ROCHR 
$ROLIN 
$ROSZ 
$RTNAD 
$SAVR6 
$SCOPE 
$SETUP 
$SIZE 
$STUP 
$SVLAD 
$SVvPC 
$SWR 
$SWREG 
$SWRMK 
$TBAE 
$TBAR 
$TESTN 
$TIMES 
$TKB 
$TKS 
$TMAP 
$TN 
$TPB 
$TPFLG 
$TPS 
$TRAP 
$TRAP2 
$TRP 
$TRPAD 
$TSTM 
$TSTNM 
$TTST 
$TTYIN 
$TYPOS 
$TYPE 
$TYPEC 
$TYPEX 
$TYPOC 
$TYPON 
$TYPOS 
$UNIT 
SUNITM 
$USWR 
$VECTL 
sVECT2 
$VERPC 
$WRCK 
$XTSTR 
$$GET4 
SOFILL 
. $X 








017630 
017764 
017702 
001170 
017310 
017430 
= 000010 
012300 
020000 
016430 
= 000117 
022744 
= 177777 
016636 
= 000106 
= 167400 
001216 
= 000000 
001674 


= 000034 


= 000012 


= 000000 
015201 
= 001000 
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Symbol table 


. ABS. 025226 000) =—s CRW, I, GBL, ABS, OVR) 
000000 001 (CRW,I,LCL,REL,CON) 
Errors detected: 0 


#ee Assembler statistics 


Work file reads: 364 

Work file writes: 282 

Size of work file: 49032 Words ( 192 Pages) 
Size of core pool: 19402 Words ( 74 Pages) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Elapsed time: 00:02:21.60 
ZORVBO.BIN, ZDRVBO.LIS/CR/-SP=SYSMAC/ML , ZDRVBO. MAC 





ZORVBO CREATED BY MACRO ON 8-APR-85 AT 16:03 PAGE 1 





SEQ 0065 

SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
ABASE = 172410 8-335 9-354 9-354 
ACDWi = 000000 9-354 9-354 = 
ACOW2 = 000000 9-354 9-354 
ACPUOP = 000000 9-354 9-354 
ADDWO = 000000 9-354 9-354 
ADDWi = 000000 9-354 9-354 
ADDW10 = 000000 9-354 9-354 
ADDW11 = 000000 9-354 9-354 

DWi2 = 000000 9-354 9-354 
ADDW13 = 000000 9-354 9-354 
ADDW14 = 000000 9-354 9-354 
ADDWiS = 000000 9-354 9-354 
ADDW2 = 000000 9-354 9-354 
ADDWS = 000000 9-354 9-354 
ADDW4 = 9-354 9-354 
ADDuS = 000000 9-354 9-354 
ACDW6 = 9-354 9-354 
ADDW7 = 000000 9-354 9-354 
ADDWB = 000000 9-354 9-354 

DW9 = 000000 9-354 9-354 
ADEVCT = 000000 9-354 9-354 
ADEVM = 000001 08-337 9-354 9-354 
AENV = 000000 9-354 9-354 
AENVM = 9-354 9-354 
AFATAL = 000000 9-354 9-354 
AMADRi = 000000 9-354 9-354 
AMADR2 = 000000 9-354 9-354 
AMADRS = 000000 9-354 9-354 
AMADR4 = 000000 9-354 9-354 
AMAMS1 = 000000 9-354 9-354 
AMAMS2 = 000000 9-354 9-354 
AMAMS3 = 000000 9-354 9-354 
AMAMS4 = 000000 9-354 9-354 
AMSGAD = 000000 9-354 9-354 
AMSGLG = 9-354 9-354 
AMSGTY = 000000 9-354 9-354 
AMTYP1 = 9-354 9-354 
AMTYP2 = 000000 9-354 9-354 
AMTYPS = 000000 9-354 9-354 
AMTYP4 = 9-354 9-354 
APASS = 000000 9-354 9-354 
APRIOR = 000000 9-354 
APTCSU = 000040 10-2104 10-2105 
APTENV = 000001 10-2104 10-2105 10-2105 10-2108 
APTSIZ = 000200 10-555 #10-2105 
APTSPO = 000100 10-2104 10-2105 10-2105 
ASKQ22 013560 10-608 #10-1991 10-2007 
ASLE 020330 #10-2286 10-2288 
ASRAD 021306 #10-2415 10-2417 
ASR3 022064 10-2516 10-2518 
ASWREG = 000000 9-354 9-354 
ATESTN = 000000 9-354 9-354 





ZORVBO 


SYMBOL CROSS REFERENCE 


SYMBOL 


AUNIT 
AUSWR 
AUTOS 
AVAL22 
AVECT1I 
AVECT2 
BACKEX 
BITO 





CREATED GY MACRO ON 8-APR-85 AT 16:03 PAGE 2 


VALUE 





REFERENCES 


9-354 
9-354 
10-2588 
10-690 
08 -336 


28-334 
#8 -334 
#8 -334 
28-334 
28-334 
#8-334 
#8 -334 
#8 -334 
8-334 
#10-2135 
8-334 
10-2420 
10-2428 
10-2451 
10-1313 
10-1421 
10-1669 
10-1182 
10-1659 
10-2108 
10-2262 
10-2312 
#10-2327 
10-2328 
10-2274 
#10-549 
#10-588 


9-354 
9-354 
#10 -2676 
#10-2752 
9-354 
9-354 
#10 -2447 
10-651 
8-334 


8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
10-1634 
10-2108 
10-2224 


10-1415 
10-2224 
10-687 


10-663 
10-1088 


10-2146 


#10-2422 
#10-2430 
#10-2453 
#10-1905 

10-1522 
#10-1959 

10-1226 
#10-1814 

10-2108 
#10-2312 
#10-2424 

10-2332 
#10-2331 
#10 -2320 
#10-593 


CREF vo2 


9-354 


10-758 10-1619 
10-887 10-892 


10-2224 


10-2108 10-2224 


10-2108 


10-734 10-1623 


#10-2219 


10-1564 #10-1926 
10-1268 10-1303 
10-2108 10-2115 


10-2410 


10-1535 





SEQ 0066 


10-1624 10-1681 10-2154 
10-915 10-917 10-984 10-1465 10-1799 


10-1403 10-1512 10-1554 10-1596 #10-1780 
10-2224 #10-2716 
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SEQ 0067 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
cr = 000015 28 -334 10-2104 10-2104 
CRLF = 000200 8-334 10-583 10-583 10-2104 10-2104 
CSTART 002310 10-571 10-2046 10-2073 10-2226 10-2226 10-2226 10-2533 
CTRLE 022166 G 10-2246 10-2322 10-2535 
DBUF 025224 10-550 10-595 10-1170 §=©#10-1171 10-1191 10-1215 10-1236 10-1238 10-1258 


10-1277 10-1292 10-1326 10-1352 10-1391 10-1497 10-1569 10-1613 10-1675 
10-1857 10-1862 10-1867 10-1905 10-1913 10-2770 


DBUF P 001736 #10-550 #10-595 #10-1532 410-1534 10-1535 10-1539 410-1569 410-1580  #10-1613 
#10-1627 410-1675 10-1686 10-1796 10-1881 10-1927 10-1960 

ODISP = 177570 8-334 9-354 10-555 

DE VADR 023130 10-2592 10-2679 

Ori 024355 10-358 10-364 10-370 10-376 10-382 10-388 10-394 10-400 10-406 

10-436 10-442 #10-2740 

DH2 024417 10-412 - 10-418 10-448 #10-2741 

DH3 024464 10-424 10-430 410-2742 

DISMAP 003500 10-736 #10-811 

DISPLA 001142 9-354 #10-555 #10-555 10-2108 10-2224 

DISPRE 000174 28-348 10-555 

DMAP 001732 #10-548 #10-597 #10-598 10-600 #10-1701 10-1713 

DORDCNE 022552 10-2605 10-2609 410-2611 

DRVBAE 001722 #10-538 10-913 10-924 10-977 10-990 10-992 10-1438 10-1586 10-1643 
#10-1707 10-1843 10-2706 

DRVBAR 001714 #10-535 10-879 10-884 10-886 10-905 10-911 10-916 10-974 10-983 


10-986 10-1126 10-1129 10-1131 10-1136 10-1170 10-1215 10-1258 10-1292 
10-1326 10-1352 10-1391 10-1434 10-1464 10-1469 10-1497 10-1539 10-1582 
10-1642 #10-1704 10-1798 10-1802 10-1835 10-1839 10-1846 10-2706 

DRVCSR 001716 #10-536 10-1005 10-1013 10-1014 10-1027 10-1035 10-1037 10-1039 10-1047 
10-1063 10-1067 10-1068 10-1083 10-1088 10-1090 10-1094 10-1098 10-1108 
10-1110 10-1111 10-1115 10-1117 10-1125 10-1135 10-1140 10-1148 10-1154 
10-1172 10-1173 10-1175 10-1177 10-1178 10-1217 10-1218 10-1220 10-1222 
10-1261 10-1263 10-1264 10-1296 10-1298 10-1299 10-1319 10-1332 10-1333 
10-1345 10-1354 10-1355 10-1360 10-1361 10-1370 10-1394 10-1395 10-1396 
10-1398 10-1399 10-1439 10-1440 10-1441 10-1443 10-1444 10-1448 10-1452 
10-1474 10-1475 10-1479 10-1483 10-1487 10-1500 10-1501 10-1505 10-1507 
10-1508 10-1542 10-1543 10-1547 10-1549 10-1550 10-1587 10-1588 10-1589 
10-1591 10-1592 10-1646 10-1647 10-1651 10-1653 10-1655 #10-1705 10-1767 
10-1780 10-1781 10-1785 10-1814 10-1815 10-1820 10-2024 10-2025 


DRVCTO 001724 #10-542 10-1082 10-1087 #10-1709 10-1758 10-1768 10-2707 
DRVCT2 001726 #10-543 #10-1710 410-1711 10-1759 10-1768 10-1769 10-2712 
DRVDBR 001720 #10-537 10-937 10-941 10-942 10-956 10-973 10-994 10-996 10-1145 


10-1147 10-1149 10-1150 10-1156 10-1193 10-1196 10-1216 10-1241 10-1279 
10-1282 10-1293 10-1581 10-1607 10-1610 +#10-1706 10-1909 10-1942 10-1975 


10-2704 
DRVSIZ 022366 10-566 #10-2582 
DRVWCR 001712 #10-534 10-615 10-844 10-860 10-864 10-865 10-883 10-885 10-908 


10-972 10-979 10-981 10-1128 10-1130 10-1169 10-1214 10-1257 10-1291 
10-1325 10-1351 10-1390 10-1392 10-1393 10-1433 10-1456 10-1460 10-1463 
10-1496 10-1498 10-1538 10-1540 10-1579 10-1641 10-1644 #*10-1703 10-1788 
10-1790 10-1797 10-1823 10-1825 10-1829 10-2700 


DSWR = 177570 8-334 9-354 10-555 
DTi 024510 10-359 10-365 10-371 10-377 10-383 10-389 10-395 10-401 10-407 


10-427 10-443 #10-2744 
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SEQ 0068 
SYMBOL CROSS REFERENCE CREF vo02 
SYMBOL VALUE RE“ ERENCES 
oT2 024524 10-413 10-419 10-449 #10-2745 
OT3 024542 10-425 10-431 #10-2746 
EDEL 020366 10-2256 410-2294 
EINPUT 022102 G 10-2254 10-2521 10-2522 
ELTOU 022336 G 10-2531 10-2566 
EMTVEC = 000030 18-334 #10-555 #10-555 
EMi 023372 10-357 #10-2722 
EM10 023643 10-399 #10-2729 
EM11 023674 10-405 #10-2730 
EM12 023726 10-411 #10-2731 
EM13 023755 10-417 #10-2732 
EM14 024002 10-423 #10-2733 
—€¥iS 024050 10-429 #10-2734 
EM16 024236 10-435 #10-2737 
—EM17 024256 19-441 #10-2738 
EM2 023421 10-363 #10-2723 
EM20 024315 19-447 #10-2739 
EM3 023453 10-369 #10-2724 
EM4 023473 10-375 #10-2725 
EMS 023537 10-381 #10-2726 
EM6 023567 10-387 #10-2727 
EM7 023616 10-393 #10-2728 
ENDBKT 016426 #10-2136 #10-2137 10-2141 10-2207 10-2220 
ENOL 020470 10-2260 410-2311 
ENDL OK 021320 10-2311 10-2419 
EPRINT 022216 G 10-2249 10-2305 10-2325 10-2348 10-2396 10-2400 10-2409 10-° 10-2425 
10-2437 10-2441 10-2448 10-2501 #10-2542 10-2547 10-2552 10-< 
ERROR = 104000 #8 -334 10-854 10-868 10-890 10-920 10-927 10-945 10-96. 10-982 


10-987 10-993 10-997 10-1021 10-1029 10-1042 10-1057 10-1072 10-1091 
10-1095 10-1101 10-1114 10-1120 10-1134 10-1139 10-1153 10-1159 10-1179 
10-1185 10-1187 10-1189 10-1197 10-1223 10-1229 10-1232 10-1234 10-1242 
10-1265 10-1271 10-1273 10-1275 10-1283 10-1300 10-1306 10-1309 10-1311 
10-1314 10-1334 10-1341 10-1362 10-1369 10-1374 10-1400 10-1406 10-1410 
10-1412 10-1423 10-1445 10-1453 10-1461 10-1470 10-1480 10-1488 10-1509 
10-1515 10-1518 10-1520 10-1524 10-1551 10-1557 10-1560 10-1562 10-1566 
10-1593 10-1599 10-1602 10-1604 10-1612 10-1656 10-1662 10-1665 10-1667 


10-1671 
ERRVEC = 000004 #8 -334 10-555 #10-555 #10-555 #10-589 10-594 #10-594 *10-647 *10-660 
*10-710 *10-757 *10-843 10-855 *10-855 10-2224 410-2224 #10-2224 «10-2224 
ESC 022014 G 10-2303 10-2500 
EWORK 021764 #10-2245 10-2255 10-2257 10-2259 10-2261 10-2263 10-2265 10-2267 10-2269 


10-2271 10-2273 410-2277 10-2278 10-2280 +#10-2282 10-2291 10-2308 10-2481 
#10-2510 #10-2511 410-2512 10-2513 9 #10-2524 +#10-2525 10-2526 10-2529 #10-2537 
10-2538 410-2548 410-2549 10-2550 410-2555 #10-2556 10-2557 10-2566 10-2568 


#10-2570 
EWORKO 021766 #10-2482 
EWORK1 021770 *10-2286 #10-2291 10-2300 #10-2308 10-2326 410-2335 #10-2354 +#10-2356 1C 2357 


#10-2363 #10-2371 10-2373 10-2374 10-2421 410-2422 10-2429 410-2430 #10-2431 
*10-2434 10-2452 410-2453 410-2454 10-2459 10-2483 10-2510 #*10-2516 
EWORK2 021772 410-2251 10-2283 10-2289 410-2292 10-2295 #10-2309 #10-2358 #10-2375 +*10-2382 
10-2386 410-2392 410-2411 10-2419 10-2427 10-2450 10-2457 #10-2484 410-2519 
EXAM 020050 G 10-2050 #10-2242 
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SEQ 0069 
SYMBOL CROSS REFERENCE CREF vo2 
SYMBOL VALUE REFERENCES 
EXAMIN 020134 #10-2254 10-2293 10-2297 10-2310 10-2350 10-2414 
EXAMOL 021626 10-2248 10-2464 
EXAMO2 021634 10-2399 #10-2465 
EXAMO3 021642 10-2377 10-2466 
EXAMO4 021650 10-2304 10-2467 
EXAMOS 021656 10-2347 10-2447 #10-2468 
EXAMO6 21663 10-2324 10-2408 10-2436 10-2469 
EXAMO7 02 1666 10-2412 #10-2470 
EXAMOS8 021704 10-2424 #10-2472 
EXAMO9 021710 10-2440 10-2473 
EXAM1 029120 #10-2251 10-2406 
EXAM1i0 021747 #10-2474 10-2500 
EXAMi1 021754 10-2395 10-2475 
EXAMi2 021762 10-2360 10-2476 
EXAM2 020104 #10-2248 10-2423 10-2444 
EXAM3 021774 #10-2341 #10-2342 10-2343 8 #10-2485 
EXBACK 020422 10-2264 10-2302 
EXTP1 921500 #10-2442 10-2446 
EXTRAP 021470 10-2244 10-2349 10-2440 10-2445 
FIDOLE 021776 #10-2326 10-2331 10-2486 
FIGV 022700 10-2627 10-2643 
FIRST2 020452 10-2264 10-2308 
FLG30K 001676 #10-523 *10-728 10-2169 
FROM 024675 10-2181 410-2754 
FSTPAS 001706 #10-527 10-557 #10-574 10-605 *10-609 
GETVEC 022564 10-2602 #10-2619 
GNS = shbsbe 8-348 8-348 10-583 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 


10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 
10-2716 10-2716 10-2716 


GOST 020414 10-2266 10-2268  %10-2300 

GTSWR = 104406 10-578 10-583 #10-2716 

HT = 000011 #8 -334 10-2104 10-2104 

INCE 020340 #10-2289 

INSUFF 024712 10-832 #10-2756 

IOTVEC = 000020 #8 -334 #10-555 #10-555 

JMPCHK 021432 10-2299 #10-2434 

JMPCK 020410 10-2270 #10-2299 

JPCX 021244 10-2402 #10-2407 

JPEX1 021240 10-2404 #10-2406 

KBCS = 177560 10-2339 #10-2494 10-2521 10-2546 10-2553 

KBDB = 177562 10-2341 #10-2495 10-2523 10-2524 10-2548 10-2555 
KBDSRV 013700 10-631 10-645 10-659 10-686 10-711 10-721 10-771 10-823 10-846 


10-863 10-882 10-909 10-940 10-955 10-970 10-1007 10-1034 10-1046 
10-1066 10-1079 10-1106 10-1124 10-1144 10-1168 10-1213 10-1253 10-1288 
10-1324 10-1350 10-1388 10-1430 10-1492 10-1533 10-1574 10-1639 10-1700 
10-1859 10-1885 10-1906 10-1930 10-1963 #10-2037 


KBDSR1 013710 10-761 10-2038  #10-2040 

KIPARO = 172340 #8-339 #10-1740 

KIPARL = 172342 #8 -339 *10-1741 

KIPAR2 = 172344 #8 -339 *10-662 #10-755 *#10-785 *#10-1635 #10-1690 +#10-1742 

KIPAR3S = 172346 #8 -339 *10-756 10-777 10-781 *10-786 *10-1636 +#10-1691 +#10-1743 
KIPAR4 = 172350 #8 -339 *10-1744 
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SEQ 0070 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL V4LUE REFERENCES 
KIPARS = 172352 8-339 #10-1745 
KIPAR6 = 172354 #8 -339 #10-1746 
KIPAR7? = 172356 8-339 #10-1747 
KIPDRO = 172300 8-339 *10-1732 
KIPOR1 = 172302 #8 -339 *10-1733 
KIPDR2 = 172304 8-339 *#10-1734 
KIPDOR3 = 172306 #8 -339 #10-1735 
KIPOR4 = 172310 #8 -339 *10-1736 
KIPDRS = 172312 #8 -339 #10-1737 
KIPDOR6 = 172314 28-339 *10-1738 
¥T?DR7 = 172316 #8-339 *10-1739 
KTSIZ 003264 10-674 10-692 #10-752 
LOBUF 013140 10-1256 10-1857 a 
LOBUF 1 013216 10-1385 10-1495 10-1537 10-1640 #10-1881 
LF = 000012 8-334 10-2104 10-2104 
LMAD 001522 #10-458 
LMEMHI 016422 #10-2149 10-2180 +#10-2187 10-2189 410-2194 410-2200 +#10-2202 #10-2218 
LMEMLO 016420 #10-2148 10-2180 #10-2186 +#10-2188 10-2190 #10-2194 #10-2199 #10-2201 410-2217 
LOOK 020772 10-2241 10-2298 10-2340 10-2345 410-2366 10-2433 10-2439 10-2456 
LOOKAD 022000 *10-2250 10-2327 +#10-2357 10-2359 #10-2373 10-2376 10-2434 #10-2487 
LOOKIE 020404 10-2253 #10-2298 
LOOKi 020672 #10-2351 10-2367 
LOOK2 020036 #10-2240 10-2258 
LOOKS 021050 #10-2375 
LSIFLG 001702 #10-525 *10-635 *10-641 
LSTQ22 001704 #10-526 10-1575 #*10-2008 #10-2010 
MASK4K = 017777 #8-345 
MASK8K = 037777 #8-346 10-713 10-731 10-763 
MEMMAP 001524 #10-459 10-629 10-707 10-753 10-797 10-814 10-821 10-827 10-1632 
MEMMES 024657 10-815 #10-2753 
MF PT = 000007 #8 -347 
MMAMES 024552 10-654 #10-2751 
MMAVA 001710 #10-528 *10-646 #10-651 *10-687 10-775 10-788 10-1619 10-1621 10-2166 
MMCK 002724 10-617 #10-629 
MMINIT 012326 10-650 #10-1731 
MMVEC = 000250 #8 -339 
MOV272 021152 #10-2393 
MPAT 021070 #10-2379 
MPATT 021064 10-2365 10-2378 10-2388 
MSD 021134 10-2387 #10-2389 
MTPS = 106427 #6 -338 
myYCC 022002 #10-2240 #10-2247 10-2252 410-2320 #10-2338  +#10-2346 10-2351 10-2361 +#10-2364 


10-2366 10-2368 410-2370 +#10-2372 10-2393 +#*10-2397 10-2401 10-2403 +#10-2405 
#10-2407 = #10-2426 #10-2432 +#10-2435 #10-2438 +#10-2442 #10-2449 410-2455 410-2488 


NODEV 023171 10-2610 10-2681 

NOINTR 023076 10-2641 410-2678 

NOMEM 025017 10-2143 10-2758 

NONKT 003142 10-647 #10-705 

NORUB 922026 G 10-2294 #10-2510 

NXDEV 012042 10-1677 410-1698 

NXDEV1 012044 10-602 #10-1699 10-1714 

OPRINT 022322 G 10-2514 10-2528 10-2536 10-2539 10-2545 10-2561 





res 
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SEQ 0071 

SYMBOL CROSS REFERENCE CREF v02 

SYMBOL VALUE REFERENCES 

PATCH 025154 10-2764 

PATT 022010 #10-2378 #10-2379 #10-2380 10-2381 #10-2415 410-2491 

PIRQ * 177772 08-334 

PIRQVE = 000240 08 -334 

PRCS = 177564 #10-2496 10-2562 

PROB = 177566 #10-2497 #10-2561 

PRO = 08 -334 10-1085 10-1174 10-1219 10-1353 10-1389 10-1435 10-1499 19-1541 
10-1583 10-1645 10-2023 10-2626 

PR1 : 08-334 

PR2 = 000100 8-334 

PR3 = 000140 08-334 

PR4 = 000200 6 -334 10-610 10-1001 10-1080 10-1107 10-1757 10-1770 

PRS = 000240 8-334 

PRE = 000300 8 -334 

PR7 = 000340 $8 -334 

PS = 177776 #8 -334 8-334 

PSW = 177776 #8 -334 

PWRMSG 020002 10-2228 10-2230 

PWRVEC = 000024 8-334 *#10-555 #10-555 #10 2228 #10-2228 #10-2228 4#10-2228  #10-2228  +#10-2228 

Q22CPU 025042 10-1991 10-2759 

RCSR 022732 #10-2586 10-2589 10-2590 +#10-2603 10-2604 10-2629 10-2639 10-2650 10-2653 

ROCHR = 104410 10-2226 10-2716 

RDOLIN = 104411 10-1992 10-2716 

RELOC 022012 10-2354 10-2356 10-2363 10-2371 10-2492 

RESTRT 002616 10-599 10-601 #10-603 10-1715 10-2228 

RESVEC = 000010 #8 -334 *10-636 

RETEX 020426 10-2272 10-2303 

REXTS 021624 10-2458 10-2460 

RSTVEC 012474 10-559 10-573 10-576 10-1030 10-1102 10-1205 10-1250 10-1284 10-1315 
10-1342 10-1375 10-1425 10-1489 10-1526 10-1570 10-1614 10-1676 10-1767 

RTEX1 020450 #10-2307 

RW = 000006 #8-341 10-1732 10-1733 10-1734 10-1735 10-1739 

R6 =#000006 #8 -334 *#10-555 #10-555 10-555 

R7 =#%000007 #8 -334 

SAVESP 022734 #10-2619 10-2640 10-2649 10-2654 

SAVET4 022006 #10-2243 10-2306 10-2490 

SAVE2 022004 *10-2374 10-2421 10-2422 10-2429 10-2430 10-2452 10-2453 10-2459 #10-2489 

SAVTST 001624 #10-497 10-820 

SAV176 022736 *10-563 10-567 #10-2655 

SAV200 022740 *10-564 10-568 #10-2656 

SAV202 022742 *10-565 10-569 #10-2657 

SCNTRP 021514 10-2323 §=©#10-2445 

SCOPE = 000004 #8 -334 1c -857 10-876 10-900 10-934 10-953 10-968 10-999 10-1032 
10-1044 10-1060 10-1077 10-1104 10-1122 10-1142 10-1161 10-1206 10-1251 
10-1286 10-1317 10-1343 10-1377 10-1427 10-1490 10-1528 10-1572 10-1615 
10-1698 10-1718 

SETREG 023226 10-556 10-575 10-579 #10-2700 

SETVEC 012454 10-1002 10-1164 10-1209 10-1254 10-1289 10-1320 10-1346 10-1383 10-1431 
10-1493 10-1530 10-1577 10-1625 #10-1757 

SRO = 177572 #8 -339 *10-648 *10-831 #10-1624 «*10-1674 «10-1748 

SRi = 177574 #8-339 

SR2 = 177576 #8 -339 





ZORVBO 


SYMBOL 








CREATED BY MACRO ON 8-APR-85 AT 16:03 


SYMBOL CROSS REFERENCE 


VALUE 


172516 
001100 
001740 
002344 
177774 
020642 
001140 


005242 





REFERENCES 


*10-663 

10-555 
#10-554 
#10-579 


#10-2346 
10-555 
10-1010 
10-2108 
10-2226 
10-555 


8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 
8-334 


10-902 


#10-2150 
10-1295 


#10-2755 


#10-2244 
#10-555 


#10-999 
#10-1044 


*#10-673 
10-580 


10-1718 


#10-555 
10-1016 
10-2108 
10-2226 
10-583 


10-975 


10-2195 
10-1328 


*10-2306 
#10-555 


10-1633 
10-2744 
#10-837 


PAGE 8 


CREF v02 


*10-1622 
10-611 


10-555 
10-1436 
10-2224 


10-2054 


10-988 


*10-2211 
#10-2022 


*10-2323 


10-2745 


10-706 


#10-555 
10-1584 
10-2224 


10-2060 


10-1010 


#10-2349 


10-2746 


10-752 


#10-555 
10-1617 
10-2224 


10-2226 


10-1016 


*10-2445 


SS 


10-583 
10-2054 
10-2224 


10-2226 


10-1436 


#10-2498 


10-902 10-975 
10-2083 10-2108 
10-2224 10-2226 
10-1584 10-1617 
*10-2587 


SEQ 0072 
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SEQ 0073 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
TST13 005330 #10-1060 
TST14 005432 #10-1077 
TSTi5 005576 #10-1104 
TST16 005704 10-1119 #10-1122 
TST17 006022 #10-1142 
TsT2 003726 #10-857 
TST20 006142 10-1158 #10-1161 
TST2i 006376 #10-1206 
TST22 006624 #10-1251 
TST23 007026 #10-1286 
TST24 007176 #10-1317 
TST25 007340 #10-1343 
TST26 007546 #10-1377 
TST27 010014 #10-1427 
TST3 004030 #10-876 
TST30 010430 #10-1490 
TST31 010632 #10-1528 
TST32 011070 #10-1572 
TST33 011334 10-1576 #10-1615 
TST4 004162 10-896 #10-900 
TSTS 004364 10-903 10-932 #10-934 
TST6 004466 #10-953 
TST7 004552 10-965 #10-968 
TYPOS = 104405 10-620 10-1718 10-2716 
TYPE = 104401 10-583 10-607 10-618 10-654 10-690 10-815 10-818 10-832 10-1718 


10-1718 10-1718 10-1991 10-2044 10-2058 10-2059 10-2062 10-2071 10-2076 
10-2085 10-2101 10-2104 10-2106 10-2107 10-2108 10-2108 10-2117 10-2117 
10-2117 10-2117 10-2117 10-2117 10-2117 10-2143 10-2181 10-2191 10-2226 
10-2226 10-2226 10-2226 10-2226 10-2226 10-2226 10-2226 10-2226 10-2226 
10-2226 10-2228 10-2588 10-2592 10-2610 10-2641 10-2645 #10-2716 








TYPMAP 015772 10-817 #10-2135 
TYPOC = 104402 10-2061 10-2117 10-2117 10-2226 #10-2716 
TYPON = 104404 #10-2716 
TYPOS = 104403 10-2189 10-2190 10-2192 10-2193 10-2594 10-2646 #10-2716 
uP = 000000 48-340 10-1732 10-1733 10-1734 10-1735 10-1739 
UUT 025124 10-618 #10-2760 
VECADR 023156 10-2645 #10-2680 
VECTIM 022642 #10-2633 
VECTOR 022746 *10-560 *#10-581 *10-1708 10-1709 10-1710 10-1716 #10-2659 
WARN 024107 10-607 #10-2735 
WORK1 022750 10-560 10-581 10-1716 10-2585 10-2659 #10-2660 
WORK2 022774 *10-2583 «10-2597 10-2598 10-2608 #10-2670 
WORK3 022776 *10-2584 «10-2600 10-2601 #10-2671 
WORK4 023000 *10-2590 «10-2591 10-2593 #10-2672 
WRONG2 020500 10-2279 10-2281 10-2290 10-2296 #10-2313 
WRONG3 021266 10-2313 #10-2411 
WSTTIM 023216 10-572 10-604 #10-2691 
XCMPO 021606 #10-2457 
$APTHD 901000 8-353 #8-353 
SASTAT = seeace 10-2105 10-2105 
SA7YC 014534 10-2105 #10-2105 
$eTY1 014510 #10-2105 
Zz em ae rm a 
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SEQ 0074 


SYMBOL CROSS REFERENCE CREF vo2 

SYMBOL VALUE REFERENCES 

sATYS 014516 10-2104 #10-2105 

SATY4 014526 #10-2105 10-2108 

$AUTOB 001134 #9-354 #10-583 10-2056 10-2226 10-2226 10-2226 

$BASE 001250 #9-354 10-2701 

$BDADR 001122 #9-354 *10-847 *10-860 *10-879 #10-905 *10-937 *10-981 *10-986 #10-992 


*10-996 #10-1005  #10-1035 #10-1048 +#10-1063 #10-1083 #10-1108  #10-1126  #10-1145 
#10-1175 = #10-1196 #10-1220 #10-1241 #10-1261 #10-1282 410-1296 #10-1319  +#10-1345 
#10-1396 #10-1441 410-1452 +#10-1460 #10-1469 410-1479 #10-1487 #10-1505 #10-1547 
#10-1589 #10-1610 #10-1651 #10-1785 410-1790 #10-1802 410-1820 #10-1825  +#10-1839 
#10-1846 8 #10-1909 #10-1942 #10-1975 10-2744 10-2745 10-2746 
$BDDAT 001126 #9 -354 #10-842 *10-865 10-866 *10-886 *10-887 10-888 #10-916 #10-917 
10-918 #10-924 10-925 *10-942 10-943 *10-960 10-961 10-962 *10-963 
10-964 *10-979 *10-983 *10-984 *10-990 #10-994 #10-1014 #10-1015 #106-1018 
10-1019 #10-1027 #10-1028  +#10-1039 10-1040 #*10-1051 10-1052 10-1053 #10-1054 
10-1055 #10-1068 +#10-1069 10-1070 #10-1090 #10-1094 #10-1098 10-1099 §=#10-1111 
10-1112 *10-1117 10-1118 #10-1131 10-1132 #10-1136 #10-1150 10-1151 #10-1156 
10-1157 =#10-1177 = #10- 1193 10-1194 #10-1222 #10-1238 10-1239 #10-1263 4#10-1279 
10-1280 410-1298 410-1323 %*10-1332 10-1339 #10-1349 #10-1357 #10-1360 10-1367 
*10-1370 10-1372 410-1398 +#10-1443 «10-1448 10-1450 #10-1456 10-1458 +#10-1464 
*10-1465 10-1467 #10-1475 10-1477 #10-1483 10-1485 #10-1502 #10-1503 #10-1507 
#10-1544 #10-1545 410-1549 #10-1591 410-1607 10-1608  +#10-1648  +#10-1649 #10-1653 
#10-1654 +*10-1780 10-1783 #*10-1788  +#10-1798 #10-1799 10-1800 +#10-1814 #10-1817 
10-1818 +#10-1823 #10-1835 +#10-1836 10-1837 #10-1843 10-1844 #10-1910 #10-1939 
*10-1972 10-2744 10-2745 





$BELL 001164 #9-354 10-2108 10-2108 10-2108 

sCOW1 001254 #9-354 

sCOW2 001256 #9-354 

$CHARC 014504 #10-2104 #10-2104 10-2104 410-2104 #10-2104 

$CKSWR 916710 #10-2226 10-2716 10-2716 

SCMTAG 001100 #9-354 10-555 10-555 10-555 10-555 10-555 10-555 

$CM3 = 000000 #9-354 9-354 

$CNTLO 017566 10-2044 10-2071 10-2226 10-2226 10-2226 10-2226 10-2226 

$CNTLG 017600 10-2058 10-2226 10-2226 

$CNTLU 017573 10-2076 10-2226 10-2226 

$CPUOP 001222 #9-354 

$CRLF 001171 #9-354 10-818 10-2085 10-2104 10-2104 10-2104 10-2108 10-2108 10-2108 
10-2117 10-2117 10-2117 10-2117 10-2226 10-2226 10-2226 

sOBLK 015420 10-2107 10-2107 #10-2107 

$DDWO 001260 #9 -354 *10-615 

$DD0W1 001262 #9-354 

$D00W10 001304 #9-354 

$D0DW11 001306 #9-354 

$00W12 001310 #9-354 

$D00W13 001312 #9-354 

$00W14 001314 #9-354 

$DDW15 001316 #9-354 

s0DW2 001264 #9-354 

$D0W3 001266 #9-354 

$D0W4 001270 #9-354 

sD0WS 001272 #9 -354 

sDDW6 001274 #9-354 

$D0W7 001276 #9-354 
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SEQ 0075 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
$D0W8 001300 #9-354 
sD0W9 001302 #9-354 
$sDEVCT 001204 #9-354 #10-612 
$DEVM 001252 #9-354 10-597 10-616 #10-2601 
$DOAGN 012276 10-1718 10-1718  #10-1718 
$OTBL 015410 10-2107 #10-2107 
SENDAD 012266 8-351 #10-1718 
$ENDCT 012230 #10-1718 
SENDOLF 012302 10-1718 #10-1718 
SENDMG 012310 10-1718 #10-1718 
SENULL 012305 10-1718 410-1718 
SENV 001214 #9-354 10-583 10-2104 10-2105 10-2105 10-2108 
sENVM 001215 #9-354 10-555 10-2104 10-2104 10-2105 
sEOP 012174 #10-1718 
SEOPCT 012222 #10-1718 10-1718 
SERFLG 001103 a a *#10-2108 10-2108 10-2108 10-2224 10-2224 10-2224 +#10-2224 10-2224 
SERMAX 001115 #9-354 #10-555 10-2224 +#10-2224 10-2224 10-2224 
SERROR 015430 10-555 #10-2108 
SERRPC 001116 a he = *10-2108 #10-2108 10-2108 10-2108 10-2108 10-2117 10-2744 10-2745 
SERRTB 001320 #10-354 10-2117 
SERRTY 015636 10-2114 #10-2117 
SERTTL 001112 #9-354 *10-2108 10-2108 10-2108 
sESCAP 001162 #9-354 #10-555 10-2108 10-2108 10-2108 10-2108 +#10-2224 
SETABL 001214 #9-354 
SE TEND 001320 8-353 #9-354 
$FATAL 001176 #9-354 *#10-2105 
SFFLG 014754 #10-2105 #10-2105 10-2105 410-2105 #10-2105 
sFILLC 001156 #9-354 10-2104 10-2104 10-2104 
$FILLS 001155 #9-354 10-2104 10-2104 
$FLAG 023002 10-652 10-688 10-811 *10-813 #10-2673 
$GDADR 001120 ge *10-957 #10-1191 #10-1236 410-1277 #10-1611 410-1911 4#10-1940 #10-1973 
$GDDAT 001124 49-354 *10-841 *10-862 10-864 10-866 *10-869 *10-872 *10-873 #10-881 


10-884 10-888 *10-891 *10-892 *10-895 *10-897 *10-910 10-911 *10-912 
10-913 #10-914 #10-915 10-918 #10-921 #10-922 #10-923 10-925 #10-939 
10-941 10-943 *10-946 #10-949 *#10-950 *10-959 10-964 #10-971 #10-1008 
#10-1009 #10-1012 10-1019 #10-1026 +#10-1036 10-1040 #10-1050 10-1055 +#10-1064 
10-1070 10-1073 #10-1084 10-1099 «10-1109 10-1112 #10-1116 10-1118 410-1127 
10-1132 410-1138 410-1146 10-1147 10-1151 810-1155 10-1157 #10-1176 410-1192 
10-1194 #10-1221 #10-1237 10-1239 #10-1262 +#10-1278 10-1280 #10-1297 410-1329 
#10-1331 #10-1359 410-1371 10-1372 #10-1397 #10-1442 +#10-1449 10-1450 #10-1457 
10-1458 +#10-1466 10-1467 +#10-1476 10-1477 #*10-1484 10-1485 +#10-1506 +#10-1548 
#10-1590 #10-1606 10-1608 #10-1652 #10-1782 10-1783 #10-1791 #10-1794 #10-1795 
*10-1796 10-1800 410-1816 10-1818 410-1826 #10-i1630 410-1831 +#10-1833 10-1837 
*10-1842 10-1844 410-1941 #10-1974 10-2744 10-2745 





$GET42 012256 #10-1718 

$GTSWR 017036 #10-2226 10-2716 10-2716 

$HD = 000003 8-330 8-330 8-330 

SHIBTS 001000 #8-353 

sICNT 001104 #9-354 #10-2224 10-2224 *10-2224 10-2224 10-2224 





ZORVBO 


SYMBOL 


$ILLUP 
SINTAG 
SITEMB 
$LF 
$LFLG 
$LPADR 
$LPERR 


$MADR1 
$MADR2 
$MADR3 
$MADR4 


$NULL 
SNWTST 


SOCNT 
s$OMODE 
SOVER 
$PASS 


$PASTM 
$PWRAD 
$PWRON 
$PWRMG 
$PWRUP 
SQUES 








CREATED BY MACRO ON 8-APR-85 AT 16:03 


SYMBOL CROSS REFERENCE 


VALUE 


017774 
001135 
001114 
001172 
014753 
001106 
001110 


001226 


015200 
015262 
016672 
001202 


001006 
017770 
017630 
017764 
017702 
001170 


REFERENCES 

10-2228 10-2228 
#9-354 10-2226 
9-354 #10-2108 
#9-354 10-2104 


#10-2105 #10-2105 
#9-354 #10-555 
#9-354 #10-555 
rt + *#10-1208 


8-353 8-353 


#10-2105 10-2105 
#10-518 *#10-1632 
10-2062 10-2226 
09-354 #10-2105 
#9-354 #10-2105 
09-354 10-2105 
a 10-2226 


#9-354 
#9-354 
09-354 
10-2224 10-2224 
#9-3 10-2104 


#9-354 #10-555 
10-2224 10-2224 
10-555 #10-2228 


10-2228 10-2228 
#9-354 10-2101 


#10-2228 
10-2226 
10-2108 
10-2104 


*10-837 
*10-840 
10-2108 


#9-354 


*10-2105 
*10-1682 
10-2226 

10-2105 


#10-2105 
#10-2226 


10-2224 
10-2104 
#10-837 
#10-900 
#10-968 
#10-1044 
#10-1104 
#10-1161 
#10-1286 
#10-1377 
#10-1528 
#10-2106 
10-2106 
10-2224 
#10-577 


10-2228 


10-2104 
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CREF vo2 


10-2226 


10-2108 
10-2108 


#10-2224 
#10-859 
10-2224 


10-555 


#10-2105 
10-1684 


10-2105 


#10-2224 
10-2104 
#10-857 
#10-934 
#10-999 
#10-1060 
#10-1122 
#10-1206 
#10-1317 
#10-1427 
#10-1572 


#10-2106 


10-2224 
#10-1718 


10-2104 





10-2226 
10-2108 
10-2108 


#10-2224 
#10-878 
*#10-2224 


10-583 


#10-2105 


10-857 
10-934 
10-999 
10-1060 
10-1122 
10-1206 
10-1317 
10-1427 
10-1572 


#10-2106 


#10-2224 
#10-1718 


10-2108 


10-2117 
10-2226 


10-2224 
*10-904 
10-2224 


10-837 


#10-857 
410-934 
#10-999 
#10-1060 
#10-1122 
#10-1206 
#10-1317 
#10-1427 
#10-1572 


#10-2106 
10-1718 


10-2108 


10-2226 


10-2224 
#10-936 
10-2224 


10-2104 


#10-876 

#10-953 

10-1032 
#10-1077 
#10-1142 
#10-1251 
410-1343 
#10-1490 
#10-1615 


10-1718 


10-2226 
















SEQ 0076 


10-2226 


10-2224 
#10-1004 #19-1062 


10-2108 10-2224 


10-876 10-876 

10-953 10-953 

10-1032 10-1032 
10-1077 10-1077 
10-1142 410-1142 
10-1251 10-1251 
10-1343 = 10-1343 
10-1490 10-1490 
10-1615 10-1615 


10-1718 10-2224 





10-2226 





ZORVBO 


SYMBOL CROSS REFERENCE 


$SWREG 
$SWRMK 


$TBAE 
$TBAR 
$TESTN 
$TIMES 


$TKB 


$TKS 


$TMAP 
$TN 





CREATED BY MACRO ON 8-APR-85 AT 16:03 


VALUE 


017310 
= #86040 
017430 
= #26000 
= 000010 
012300 
2 #e¢e00 
= 06060 
020000 
016430 
= 000117 


022744 
* 177777 


016636 
= 000106 
= 167400 


001216 
= 000000 


001674 
001672 
001200 
001160 


001146 


001144 


001666 
= 000034 


REFERENCES 


#10-2226 
10-2716 
#10-2226 
10-2716 
#10-2226 
#10-1718 
10-2716 
10-2716 
#10-2228 
10-555 
#10-553 
10-553 
10-555 


#10-1122 
10-1206 


10-2716 
10-2716 
10-2226 


10-2228 
#10-2224 
10-553 
#10-553 
10-555 
10-2108 
#10-2612 
#10-553 
#10-553 
#10-2224 
8-351 
#8-330 
8-333 
10-857 
10-1060 
10-1317 
10-1718 
10-2108 
10-2224 
10-2224 


10-2224 


#10-1638 
#10-1637 
#10-837 
#10-555 
#10-1377 
10-2224 
10-2040 


#10-1206 


10-2716 
10-2716 


#10-2228 


#10-553 
10-555 
10-555 
ae Saas 


10-2224 


8-333 
10-2224 


10-1643 
10-1642 
*10-2224 
#10-968 
#10-1427 
10-2224 
10-2067 


10-1142 
10-1251 


PAGE 13 


CREF v02 


#10-2228 


10-553 
10-555 
10-555 
10-2108 


#10-553 
#10-553 


8-333 
9-354 
10-900 
10-1104 
10-1377 
10-1718 
10-2108 
10-2224 
10-2224 


8-333 
10-2224 


#10-1693 
#10-1692 


#10-999 
#10-1490 


10-2226 


#10-1142 
10-1251 


#10-2228 


#10-553 
10-555 
10-555 
10-2108 


#10-553 
#10-553 


8-333 
9-354 
10-934 
10-1122 
10-1427 
10-1718 
10-2108 
10-2224 
10-2224 


8-333 
10-2224 


#10-1834 
10-1832 


#10-1032 
#10-1528 


10-2226 
10-2226 


10-830 
10-876 
10-934 
10-995 
10-1044 
10-1104 
10-1158 
#10-1251 





10-553 
10-555 
10-583 
10-2224 


10-553 
10-553 


8-333 
10-555 
10-953 
10-1142 
10-1490 
10-2108 
10-2108 
10-2224 
10-2224 


8-333 
10-2224 


10-1842 


#10-1077 
#10-1615 


10-2226 
10-2226 


10-837 
#10-876 
#10-934 

10-999 
#10-1044 
#10-1104 

10-1161 

10-1286 


#10-553 
10-555 
10-583 
10-2226 


#10-553 


10-2224 


8-333 
10-2224 


#10-1251 
#10-1718 


10-2226 
10-2226 


10-837 
10-896 
10-953 
10-999 
10-1060 
10-1119 
10-1161 
10-1286 





10-553 
10-555 
10-583 
10-2226 


#10-553 


10-2224 


8-333 
10-2224 


#10-1286 
#10-2224 


10-2226 
10-2226 


#10-837 
10-900 
10-953 

#10-999 
10-1060 
10-1122 

#10-1161 

#10-1286 





#10-553 
10-555 
10-1718 


10-553 


8-333 
10-555 
10-1032 
10-1251 
10-1615 
10-2108 
10-2224 
10-2224 
10-2224 


8-333 
10-2224 


#10-1317 
10-2224 


10-2226 
10-2226 


10-1317 





SEQ 0077 

























CROSS REFERENCE 
VALUE 


015201 
seeees 
seeees 
001000 


REFERENCES 


10-1317 
10-1427 
10-1572 
09-354 
#9-354 
9-354 
10-555 
#10-2716 
#10-2716 
10-2716 
10-2716 
10-2716 
10-2716 
#10-2716 
10-2716 
6-353 
#9-354 
#10-2224 
#10-520 


CREATED BY MACRO ON 8-APR-85 AT 16;03 


#10-1317 
#10-1427 
#10-1572 
10-2104 
10-2104 
10-1580 
#10-2716 
10-2716 
10-2716 
#10-2716 
10-2716 
10-2716 
10-2716 


#10-2716 


#10-839 
10-2224 

*10-1634 
10-2226 


10-2716 
10-2105 
10-2104 
10-2104 
10-2716 
#10-2106 
10-2716 
*10-596 


10-2708 


#10-2113 


10-1718 
#10-2106 
10-2224 
10-2105 
8-353 





10-1343 
10-1490 
10-1576 
10-2104 
10-2104 
10-1582 


10-2716 
10-2716 
#10-2716 
10-2716 
10-2716 


#10-1718 
10-2224 
#10-1678 
10-2226 


10-2716 
10-2716 
10-2104 
#10-2104 
10-2716 
10-2716 


10-612 


10-2106 


PAGE 14 


CREF  voe2 


SEQ 0078 





10-1343 10-1343 10-1377 10-1377 §=#10-1377 10-1427 
10-1490 10-1490 10-1528 10-1528 #10-1528 10-1572 
10-1615 10-1615 10-1615 

10-2104 

10-2104 

10-1606 10-1611 10-2104 10-2104 10-2104 


10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 
10-2716 10-2716 10-2716 410-2716 10-2716 10-2716 
10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 
#10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 
10-2716 410-2716 10-2716 10-2716 10-2716 - 10-2716 


10-2108 10-2108 10-2108 10-2113 10-2224 10-2224 

10-2224 10-2224 

10-1679 #10-1681 10-1684 
#10-2226 

































10-2716 
10-2104 10-2104 10-2104 10-2226 


10-613 10-619 #10-1712 


#10-2106 








ZORVBO CREATED GY MACRO ON 8-APR-85 AT 16:03 PAGE 15 


SEQ 0079 
MACRO CROSS REFERENCE CREF v02 
MACRO NAME REFERENCES 
COMMEN 08 -334 
ENDCOM 08 -334 
ESCAPE 8 -334 
GETPRI #8 -334 
GE TSHR 8-326 08-334 #10-583 10-583 
MULT 06 -334 
NEWTST #8 -326 08-334 10-837 10-857 10-876 10-900 10-934 10-953 10-968 10-999 


10-1032 10-1044 10-1060 10-1077 10-1104 10-1122 10-1142 10-1161 10-1206 10-1251 
10-1286 10-1317 10-1343 10-1377 10-1427 10-1490 10-1528 10-1572 10-1615 


PoP 08-334 10-2105 10-2105 10-2107 10-2194 10-2214 19-2228 10-2228 

PUSH 08-334 10-2105 10-2105 10-2105 10-2107 10-2147 10-2180 10-2228 10-2228 

REPORT @8 -334 

SETPRI 8-334 

SETTRA 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 

SETUP 28 -334 10-555 

SKIP 28-334 10-812 10-830 10-896 10-903 10-932 10-965 10-995 10-1041 10-1119 
10-1158 10-1576 

SLASH 8-326 #8-334 

STARS 8-322 8-326 8-334 8-351 8-353 8-353 8-353 9-354 9-354 9-354 


10-452 10-455 10-584 10-586 10-622 10-623 10-625 10-628 10-642 10-644 
10-656 10-658 10-676 10-685 10-694 10-704 10-718 10-720 10-737 10-751 
10-768 10-770 10-802 10-809 10-837 10-837 10-857 10-857 10-876 10-876 
10-900 19-900 10-934 10-934 10-953 10-953 10-968 10-968 10-999 10-999 
10-1032 10-1032 10-1044 10-1044 10-1060 10-1060 10-1077 10-1077 10-1104 10-1104 
10-1122 10-1122 10-1142 10-1142 10-1161 10-1161 10-1206 10-1206 10-1251 10-1251 
10-1286 10-1286 10-1317 10-1317 10-1343 10-1343 10-1377 10-1377 10-1378 10-1382 
10-1427 10-1427 10-1490 10-1490 10-1528 10-1528 10-1572 10-1572 10-1615 10-1615 
10-1695 10-1697 10-1718 10-1719 10-1721 10-1723 10-1730 10-1751 10-1756 10-1762 
10-1766 10-1773 10-1779 10-1808 10-1813 10-1850 10-1856 10-1875 10-1880 10-1899 
10-1904 10-1918 10-1925 10-1952 10-1958 10-1985 10-1989 10-2013 10-2020 10-2030 
10-2036 10-2104 10-2105 10-2106 10-2107 10-2108 10-2109 10-2112 10-2117 10-2118 
10-2134 10-2224 10-2226 10-2226 10-2226 10-2226 10-2228 10-2228 10-2504 10-2509 
10-2578 10-2580 10-2615 10-2617 10-2630 10-2632 10-2685 10-2689 10-2696 10-2698 
10-2716 10-2717 10-2719 10-2748 10-2750 10-2765 10-2768 


SWRSU 28-334 #10-555 10-555 
TRMTRP #10-2716 

TYPBIN 28-334 

TYPDEC #8 -334 10-1718 

TYPNAM #8 -334 10-583 

TYPNUM #8 -334 

TyPocs #8 -334 10-2189 10-2190 10-2192 10-2193 
TYPOCT 8-334 _ —. 10-2117 10-2117 10-2226 

TYPTXT #8-334 

$sCMRE $8-354 

$$CMTM #8-354 

$sESCA #8 -334 

$SNEWT #8-234 10-837 10-857 10-876 10-900 10-934 10-953 10-968 10-999 10-1032 


10-1044 10-1060 10-1077 10-1104 10-1122 10-1142 10-1161 10-1206 10-1251 10-1286 
10-1317 10-1343 10-1377 10-1427 10-1490 10-1528 10-1572 10-1615 


$$SET #10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 10-2716 
$$SE™ #10-555 10-555 
$$5KIP #8 - 334 10-812 10-330 10-896 10-903 10-932 10-965 10-995 10-1041 10-1119 








| FADUAA POCATONA Ow MAFPDNA Mai @ AMM @C AT 42 .A® MAP 422 


ZORVBO 





MACRO CROSS REFERENCE 


MACRO NAME 


REFERENCES 


10-1158 
8-321 
8-321 
8-321 
8-321 
8-321 
#8 -333 
#8 -323 
69-354 
8-323 
8-324 
8-323 
8-323 
#8-324 
28-324 
8-325 
8-325 
#8-325 
#8-325 
#8-325 
28-324 
#8-324 
#8 -324 





—_—_—_—_—_—_—_—_—_—_—_—_—————_—_—_—_—_————— Se — 


CREATED BY MACRO ON 8-APR-85 AT 16:03 PAGE 16 


SEQ 0080 
CREF vO02 


10-1576 
8-334 
8-330 
8-339 
10-553 
8-333 


8-351 
9-354 
8-353 
10-2105 
8-348 
8-354 
10-1718 
10-2108 
10-2117 
10-2228 
10-2226 
10-2224 
10-2716 
10-2107 
10-2104 
10-2106 


